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INTRODUCTION 

This report- is a supplement to reference 1 and describes the usage of a 
computer program implementing an improved vortex-core method described in ref- 
erence 1. The method is applicable to cambered wings, straked wings or wings 
with leading-edge vortex flaps at subsonic speeds. The prediction of lifting 
pressure distribution and the computer time based on the diffused vortex- 
filament method in reference 2 have been improved by using a pair of concentrated 
vortex cores above the wing surface. 

In the following, the program capabilities, input format and output format 
are described. Then, input data of two sample test cases ( a delta wing with 
conical camber and a double delta wing) and the corresponding output, as well 
as the program listing are given. 

PROGRAM CAPABILITIES 

This program has the following main features: 

(1) Arbitrary camber shapes may be defined at ten or less spanwise stations. 
Option for exactly defining leading-edge flap geometry is also provided. 

(2) Eight spanwise strips are .usually used for simple wings (such as delta 
wings) and nine spanwise strips for double delta wings. 

(3) The side-edge vortex system is incorporated. 

(4) In the core model method, the starting solution for wings at angles of 
attack less than 20 degrees is taken to be the initial shape at 20-degrees 
angle of attack. 

INPUT DATA FORMAT 

Group 1 Format (16A5) 

Any title identifying the case to be run. END in first three columns 
terminates the job. 




TTL(I) 



Group 2 Format (615) 
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NCW Number of chordwise vortex elements on the wing surface. Limited to 

nine. 

NBRR Number of constant x-locations where the spanwise lifting pressures 

are to be interpolated. Limited to twenty-five. 

NCONTS = 0, if initial locations of free elements are calculated in the 
program. 

= 1, if initial locations of free elements are to be read from data 
cards. For wings at angles of attack less than 20 degrees, the initial 
shape at 20 degrees is to be used. 

MITER Maximum number of iterations to be performed (usually between 7 and 9) . 

IPUNCH = 0, if coordinates of free elements after the last iteration are not 

to be punched out. 

= 1, if coordinates of free elements after the last iteration are to 
be punched out. 

KUl = 2, two iterations to be performed in the vortex filament model. 

Note: If KUl is greater than MITER, the vortex filament model is to be run in 

the entire iteration process. 

Group 3 Format (615) 

NC Number of spanwise sections on the right wing (bounded by points of 

discontinuities in geometry, such as change in sweep). Limited to 
two. (See sketch 1). 

Ml (I) Number of spanwise strips in each spanwise section plus one. Limited 
to twenty. 

ICAM = 0, for non-cambered airfoils. 

= 1, if cambered ordinates are to be read in. 

= 2, if camber slopes are defined analytically in subroutine ZCDX. 

= 3, if there are flat leading-edge flaps attached to a non-cambered 


wing. 
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1ST 


ITERS 

Group 
I SPAN 


ITRAKE 

Group : 
ALPHA 
AMACH 
DELTA 

DL 

XEND 

CBAR 

AREA 

CLS 

Note: 


Number of y-stations at which camber ordinates are read in. Limited 
to ten. If ICAM=3, 1ST is the number of leading-edge flap segments; 
for example, 1ST would be 1 for a simple flat leading-edge flap. If 
ICAM=1, at least two y stations are needed, one being at the root and 
the other being at the tip. 

= 0, for wings at angles of attack greater than 20 degrees and 
NCONTS=0. 

= 3, for wings at angles of attack less than 20 degrees and NCONTS=l. 
Format (215) 

= 0, if the leading-edge free elements start from the center line of 
geometry. 

= 1, if the leading-edge free elements do not start from the center 
line of geometry. 

Use 0 always in the present version of the program . 

= 1, for one vortex-core system on the right wing. 

= 2, for two fortex-core system on the right wing, 
i Format (8F10.5) 

Angle of attack (in degrees) 

Mach number. Limited to subsonic flow. 

Length of a segment of leading-edge free vortex elements (may be 
taken as 0.15 c D , where c D is the root chord). 

Length of a segment of wake elements (may be taken as 0.15 c ). 
x-coordinate beyond which free vortex elements from the leading edge 
and the wake are represented by a single element going to infinity. 
Reference chord. 

Total reference wing area. 

Reference lift coefficient. 

The reference lift coefficient CLS for use in adjusting the core move- 
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ment is based on the suction analogy as implemented by Lan (reference 3) . 

Group 6 Format (915) 

NFSH(I) Number of segments along each vortex element on the leading-edge 
free vortex sheet. 

= 5, if ITERS = 0. 

= 6, if ITERS = 3. 

Omit Groups 7, 8 and 9 if IGAM 4 1. Repeat Group 7, 8, 9 1ST times. 

Group 7 Format (4F10.6) 

YT(I) y-station at which camber ordinates are read in. 

XNUM Number of camber ordinates to be read in. Limited to 21. 

CURV(I) = 0, if camber is to be formed by connecting straight segments, with 
first segment being regarded as flat leading-edge flap. 

= 1, if cubic spline interpolation is used. 

= 2, if cubic spline interpolation is used, with first segment being 
flat leading-edge flap. 

CHND(I) Chord length at YT(I) station. 

Group 8 Format (8F10.6) 

XT(I,J) x/c values at which camber ordinates are read in for YT(I) station. 
Group 9 Format (8F10.6) 

CA(J) z/c values of camber ordinates at the corresponding XT(I,J) locations. 
Omit Groups 10, 11 and 12 if ICAM ± 3. Repeat 1ST times,. .. 

Group 10 Format (2F10.6) 

YLEF(I,1) Extreme inboard y-coordinate of I-th flat leading-edge, flap segment. 
YLEF(I,2) Extreme outboard y-coordinate of I-th flat leading-edge flap segment. 
Group 11 Format (6F10.6) 

XLF(I,1) First corner point coordinates of I-th flat leading-edge flap seg- 
YLF(I,1) . ment. (see sketch 2) 


C 



Z1 
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XLF(I,2)'j Second corner point coordinates of I-th flat leading-edge flap 
YLF(I,2) l segment. 


Group 12 Format (6F10.6) 

XLF(I,3)'| Third comer point coordinates of I-th flat leading-edge flap 


YLF(I,3) > segment. 


XLF(I,4)] Fourth comer point coordinates of I-th flat leading-edge flap 
YLF(I,4) ► segment. 


Note: The flat flap must be inside the boundary of planform described in Group 13. 

Group 13 Format (6F10.5) 

Comer-point coordinates of a spanwise section (See sketch 3) . 

XXL(l) Leading-edge x-coordinate of the inboard chord. 

XXT(l) Trailing-edge x-coordinate of the inboard chord. 


YL(1) 


y-coordinate of the inboard chord. 


XXL (2) Leading-edge x-coordinate of the outboard chord. 
XXT(2) Trailing-edge x-coordinate of the outboard chord. 


YL(2) 


y-coordinate of the outboard chord. 


Omit Groups 14, 15, 16, 17, 18 and 19 if NCONTS = 0. 


Group 14 Format (1012) 

NELM(I) Number of vortex segments along each vortex element in the leading- 
edge vortex system. 

Group 15 Format (8F10.4) 

XE(J) ^ x— , y— and z-coordinates of endpoints (away from the leading edge) 
YE(J) y of the leading-edge vortex segments on and above the wing surface. 
ZE(J) 

/ 

Group 16 Format (1012) 


NNELM(I) Number of vortex segments along each vortex element in the wake 
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system behind the trailing edge. 


Group 17 
XXE(J) 
YYE(J) l 
ZZE(J) J 


Format (8F10.4) 

x-, y- and z-coordinates of downstream endpoints of wake vortex 
segments behind the trailing edge. 


Omit Groups 18 and 19 if the wing plan form has a zero tip chord. 

Group 18 Format (1012) 

NTLM(I) Number of vortex segments along each vortex element in the side- 
edge vortex system. 

Group 19 Format (8F10.4) 

XTIP(I, J)^ x-, y- and z-coordinates of endpoints (away from the side edge) of 
YTIP(I,J) Uortex segments on side-edge vortex elements, 

ZTIP(I,J) 
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Sketch 3. 
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OUTPUT FORMAT 

(1) First, all input data will be printed. 

(2) Camber slopes at wing bound elements (with respect to fine grids). 

DZDXV 
DZDYV 

(3) Camber slopes at wing control points and bound elements (with respect to 
coarse grids) . 

DZDX 
DZDY 

DZDYV At bound elements. 

(4) Camber slopes at leading-edge control points of each spanwise strip. 

DZDX 
DZDY 

(5) Leading-edge vortex element system: 

XE x-, y- and z-coordinates of endpoints (away from the leading 

YE > edge) of vortex segments in the leading-edge vortex element 
ZE J system on and above the wing. 

(6) Wake element system: 

XXE 
YYE 
ZZE 

(7) Plots of leading-edge free elements above the wing and wake elements 
behind the trailing edge, on X-Y, X-Z and Y-Z planes respectively. . 

(8) Wing vortex-density distribution: 

X/C Nondimensional x-coordinate, referred to local chord (with 

respect to coarse grids) . 

2Y/B nondimensional y-station, referred to wing semi-span. 

Bound vortex density on the wing (y ) at the given (X/C, 2Y/B). 


x-, y- and z-coordinates of each vortex segment in the wake 
>. system behind the trailing edge. 

/ 


^ At leading-edge control points. 




GAMAY 
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(9) Leading-edge vortex strengths: 

2Y/B Nondimensional y-station, referred to wing semi-span. 

CAPGAMA Strength of the leading-edge free element (P) at the given 2Y/B. 

(10) Wing surface lifting-pressure distribution: 

X/C Nondimensional x-coordinate , referred to local chord (with respect 

to fine grids) . 

2Y/B Nondimensional y-station, referred to wing semi-span. 

DELTA-CP The total AC p at the given (X/C, 2Y/B) 

(11) ' Sectional characteristics: 

I Spanwise station number (numbered from root to tip) . 

CLI Sectional lift coefficient. 

CMI Sectional pitching moment coefficient about the y-axis. 

CDI Sectional induced drag coefficient. 

CTI Sectional leading-edge thrust coefficient. 

(12) The next group of output variables is the overall aerodynamic characteristics 

(13) Spanwise lifting pressures at constant x-locations; 

Y y-coordinate. 

2Y/B (LOCAL) Nondimensional y-station, referred to wing local semi-span. 
DELTA-CP Total AC p at the given (x,y). 

(14) Summary sheet: 

ITERATION Iteration number. 

The total lift coefficient. 

The total pitching moment coefficient about y-axis. 

The total induced drag coefficient. 

The total leading-edge thrust coefficient. 

Sura of strengths of leading-edge free vortex elements, except 
the one at the center line. 

Sum of the magnitude of total force acting on the core and free 


CL 

CM 

CD 

CT 

GMSUM 


SFAC 


sheet. 
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(15) The last portion of the output consists of the converged positions and 
orientations of free sheet vortex elements and the concentrated core, and 
aerodynamic characteristics corresponding to the solution in which "SFAC" 
of (14) reaches a minimum value in the iteration cycle. 
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Results for iterations 1 and 2 are omitted. 


Initial Shape of the Free Sheet and Concentrated Core is 
shown in Iteration 3. 
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WING VODTFX STRENGTHS 
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LEADING-EDGE 

V0PTICE5 STRENGTHS 
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SF CT TONAL PROPERTIES 


I 

CL 

CM 

CD 

CT 

* 

** 

«* 

«« 

»« 

1 

.79?9? 

.29097 

• A7 080 

0.00000 

2 

1.12264 

.34315 

.61919 

0.00000 

3 

1 .29834 

.03883 

.74537 

0.00000 

4 

1.21109 

-.28381 

.66595 

0.00000 

5 

.98632 

-.37075 

.49312 

0. onOOO 

6 

.71392 

-.33113 

.37731 

0.00000 

7 

. 6626 1 

-.35762 

. 16599 

0.00000 

8 

.93610 

-.60116 

.19331 

0.00000 


TOTAL LIFT COEFFICIENTS 1.05961 
TOTAL PITCHING MOMENT COFFFlCIFNT= -.03686 
TOTAL PR AG COFFFlCIENT= .57220 
TOTAL THRUST COEFFICIFNT= <1.00000 


SPANWISE PRESSURE AT CONSTANT X = » . -.40000 

Y ?Y/P (LOCAL) OELTA-CP 

.02599 .07538 .76345 

.10083 . ? q 244 1.11946 

.21550 .62500 2.51841 


SPANWISE PRESSURF AT CONSTANT X=. .41000 

Y 2Y/P (LOCAL) DELTA-CP 

.02599 .04501 .58770 

. 1 0 0R3 .17459 .66697 

.21950 .37313 1.20891 

.35616 .61668 1.74667 

.50584 .87596 1.29153 


SPANWISE PRESSURF AT CONSTANT X=. 1.20500 
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2Y/R (LOCAL) 

DFLTA-CP 


• 02999 

.83225 

.33228 
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.10003 

• .12511 

.31834 


.21950 

. 2^738 

.56316 


.39616 

.44190 

.93004 


.50984 

.62762 

.87366 


• 66 65 0 

.80214 

.37784 


.76)17 

.94441 

.981P9 




Similar results for several iterations till " SFAC " value 
shows an increase ( after fifth iteration ) from previous 
value. ( See summary sheet on next page ) 

The best solution is shown after summary sheet. 







CONICAL 

CAMPER 

WING AT 

ALPHA 30 

.7 DEGREES 

ALPHA (DEG.: 

1=30.700 

MACH NUMRFP= 0 

• 000 



ITERATION 

CL 

CM 

CP 

CT 
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««««««««« 
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«• 

** 


««9«« 

■ «**» 
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0.0000 

1.8564 


1- 

1.1006 

-.0946 

. c 647 

o.oooo 

1.829? 


2 

1.1 ?°7 

— . 0925 

.5P34 

o.oooo 

1.8104 


3 

1.0996 

-.0369 

.972? 

o.oooo 

1.1*75 

.6443 

A 

1 .2647 

-. 00P3 

.6917 
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.7150 

0.0000 
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.7159 

7 

1.3071 

-.0064 

.7167 

0.0000 

1.2113 

.7181 



CONICAL CAMRFR WlNG AT ALPHA 30.7 DEGREFS 
ALPHA (OFG. 1=30. 700 MACH NU M REP= 0-000 ITERATION NUMBER* 6 

LEAPING FPGE FLFMENTS 


«MMM» ] «««« 


1 . « 0 0 0 
-.0517 

-1.3639 

.6014 

-1 .5624 
1 .6433 

-1.6000 

2.3156 

-1.6000 
3.04] o 

-1 .6000 
3.7669 

-1.6000 

-1.6000 

-1.6000 

-1.6000 

-1.6000 

-1.6000 

-1.2316 

-.6744 

.0577 

.?7TR 

. 0 c 7 7 

.4059 

0 .0000 
.532? 

0.0000 

.5307 

0.0000 

.5297 

0.0000 

.5P96 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

.0651 

.1637 

o.oono 

.1657 

M>> 90*00 

0.0000 
. ?57 1 

0.0000 

.3635 

0.0000 

.4090 

0.0000 

.4340 

0.0000 

.4381 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

,0643 

.0920 

1 .4000 
.69] A 

-1.0333 

1.6433 

-1.3639 

2.3156 

-1.3990 

3.0410 

-1 .5390 
3.7669 

-1.4]39 

-1.3789 

-1,3408 

-1.2997 

-1.2573 

-1.2573 

-1.2316 

-.6744 

-.0517 

.1540 

.4059 

.1540 
• 5322 

.0577 

.5307 

.067/ 

.5297 

.0577 

.5296 

. 0R25 

• 0R48 

.0755 

.0608 

.0448 

.0448 

.065! 

.1637 

.2739 

0.0000 
• ?57 1 

OOOO 90000 

0.0000 

.3635 

0.0000 

.4090 

0.0P00 

.4340 

0.0000 

.4381 

.0238 

.0539 

.0801 

.0977 

.1039 

.0727 

.0643 

.0920 

.1657 

1.4000 
1 .6433 

- • 5878 
P.3156 

-1.0333 

3.0410 

-1.0642 

3.7669 

-1.1874 

-1 .1038 

-1.0104 

-.9089 

-.7993 

-.68*3 

-.6863 

-.6744 

-.0517 

.6914 

.PRP6 

.53?? 

. ?R36 
.5307 

.1540 

.5297 

. 1540 
.5299 

.1540 

.2200 

.2260 

.2013 

• 16?1 

.1195 

.1195 

.1637 

.P739 

.4059 

o . nnoo 
. 3635 

oooo 4 oooo 

0.0000 

.4090 

0,0000 

.4340 

O.OOOU 

.4381 

ft . 0 0 0 0 

.0635 

.1437 

. .2136 

.2606 

.2771 

.1940 

,09?0 

.1657 

.2571 

1.4000 

P.3156 

-.OP 12 
3.0410 

— . RP 7R 
3.7669 

-.6130 

-.7137 

-.6068 

-.4932 

-.3669 

-.2264 

-.0804 

-.0804 

-.0517 

.6914 

1.6433 

.4310 

.5307 

.4310 
. 5?97 

,?R36 

,5296 

.2836 

,?836 

.3470 

.3417 

.2934 

.2264 

.1645 

.1645 

.2739 

.4059 

»53?2 

0.0000 

.4090 

oooo Roooo 

0.0000 

.4340 

0.0000 
. 4 3R 1 

0.0000 

0 .0000 

.1048 

.2155 

.3038 

.3562 

.3658 

.2325 

.1657 

.2571 

.3635 

1.4000 

3.0410 

. 4 ?54 
3.7669 

-.OPl? 

-.1000 

-.1750 

-.0385 

.1093 

.2709 

.4517 

,64*7 

.6467 

.6914 

1.6433 

2.3156 

.5704 
. 5?97 

. 57R4 
.5?96 

.4310 

.4310 

.4310 

.4932 

.4825. 

.4079 

.3123 

.2274 

.2274 

.4059 

.5322 

.5307 

o.oono 

.4340 

oooo (oooo 

0.0000 

.4381 

0.0000 

o . n o o o 

0.0000 

.1522 

.3037 

.4221 

.48P7 

.4858 

.2624 

.2571 

.3635 

.4090 

1.4000 

3.7659 

. P709 

.4254 

.4130 

.3637 

.5609 

.7806 

1 .0206 

1.2932 

1 .5847 

1.5847 

1.6433 

2.3156 

3.0410 

. 7 o p o 
,5?96 

. 70 P 0 

.5784 

.5784 , 

.5784 

.6415 

.6142 

. 40 ] R 

.3593 

.2548 

,2548 

.5322 

.5307 

.5297 

0.0000 

.4301 

0.0000 

0.0000 

0 .0000 

0.0000 

.2191 

.4414 

.5937 

.6597 

.6638 

.3019 

.3635 

,4090 

.4340 



V 


•««» 7«o** 

1 .4000 

1.2016 

.8709 

.8642 

.8374 

1 .0677 

1.3259 

1.6041 

1.9136 

2.2479 

- 2.2479 

2.3156 

3.0410 

3.7669 

1 .804? 

.8043 

.7080 

.7080 

.7080 

.7650 

.7516 

.6329 

.4875 

.3642 

.3642 

.5307 

.5297 

.5296 

o.ocno 

0.0000 

0.0000 

o.oouo 

0.0000 

.2450 

.507 8 

.7135 

.8428 

.9247 

.5088 

.4090 

.4340 

.4381 

.... 

* 1.4000 

1.3008 

1.2016 

1.1990 

1.1890 

1.4857 

1.8182 

2.1826 

2.5752 

2.9903 

2.9903 

3.0410 

3.7669 


.8620 

.8331 

.8043 

.8043 

.0043 

.8705 

.8542 

.7426 

.6036 

.4822 

.4822 

.5297 

.5296 


0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

.2921 

.6175 

.8875 

1.0986 

1.2750 

.7231 

.4340 

.43P1 



*•4 



T) V/AKE ELEMENTS 

4HMH> ] «««« 


1 .4000 

1.7000 

2.0000 

2.7500 

3.5000 

4.2500 

5.0000 

5.7500 

n.oono 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

» o* * ps«o« 








1 .4000 

1.7000 

1 .9084 

2.7365 

3.4298 

3.9714 

4.6104 

5.2510 

. 0577' 

. 0*177 

.0871 

. 2 ! 9b 

.5006 

.8507 

.9376 

1.0114 

0.0000 

0.0000 

.0100 

.0224 

.0766 

.4595 

.8425 

1.2254 

»*« * loan* 








1.4000 

1 .7000 

1 .9905 

2.6697 

3.2258 

3.8442 

4.4285 

5.1233 

• 1 c 4 0 

.1540 

.2280 

.53/9 

.8645 

.6816 

.3441 

.0950 

0.0000 

0.0000 

.0102 

.0822 

.4651 

.8480 

1.17S4 

1.3100 

««ti 40000 








1 .4000 

1.7000 

1 .9693 

2.4627 

3.0583 

3.7053 

4.3682 

5.0568 


. 2836 

.4142 

.8534 

.6062 

.*002 

.3561 

.2851 

0 . 0 0 0 0 

0.0000 

.0205 

.3756 

.7585 

1.1229 

1.4426 

1.731 1 

0000 coooo 








1.4000 

1.7000 

1.9467 

2.5430 

3.1875 

3.8371 

4.5017 

5.1681 

.4310 

* 4 3 1 0 

.5966 

.8818 

.9037 

.7978 

.6282 

.4016 

0.0000 

0.0000 

.0415 

.3958 

.7787 

1.1384 

1.4417 

1.7008 

OOOO AOOOO 








1.4000 

1.7000 

1 .9548 

2.5881 

3.2330 

3.8837 

4.4696 

5.1204 

.S704 

.5704 

.7300 

.9766 

.9850 

.7823 

.4663 

.1493 

0 .0000 

0.0000 

.0456 

.3627 

.7456 

1.0586 

1 .4042 

1.6001 

»«oo 700*0 








1.4000 

1.7000 

1.0629 

2.5960 

.3.2512 

3.9097 

4.5449 

5.1788 

.70»0 

.7080 

.8397 

1 .0667 

1.0664 

.9689 

.8200 

.6096 

0.0000 

0.0000 

.0596 

.3877 

.7562 

1.1017 

1.4716 

1.8128 

0000 poooo 








1.4000 

1.7000 

1.9428 

2.5755 

3.2199 

3.8597 

4.5017 

5.14P1 

.0043 

.8043 

.9460 

1.071B 

1.0466 

.954 7 

.8228 

.6678 

0.0000 

0.0000 

.1035 

.4864 

. 8693 

1.2497 

1.6142 

1 .9615 

OOOO QOOO * 








1.4000 

1.7000 

1 .0688 

2. 6000 

3.2497 

3.9305 

4.6164 

5.2689 

.85*5 

.8555 

.87?l 

1.0042 

.9498 

.8699 

.7203 

.4018 

0.0000 

0.0000 

.1321 

.5150 

.8859 

1.1901 

1.4541 

1.6418 
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o WING VOPTFX S T PFNGTHS 


x/r 

?Y/R 

G* M PY 


»«»« 


.01704 

.0301? 

?.4??31 

. 14644 

.o°oi5 

. 4 4ftP ? 

.370 c 9 

.0301? 

.47?3? 

.ft?°4] 

.03014 

.33490 


.03014 

. ? 1 c 3ft 

,QR?CF 

.03015 

. 0 0 1 P. 1 

.01704 

. 1 lft°P 

1 . 7?0G6 

.1444? 

.1 1898 

.33409 

,370 c 9 

,llft°o 

. 4 ?ft75 

.ft? °41 

.1 lft°B 

.33703 

.p c ? cc ; 

.1 149P 

. ? ? 8 7 0 

. Of ?■=(=■ 

.114QP 

.088*1 

.01 704 

.?500O 

?.?Porr,0 

.1444= 

,? c 000 

. ?ft 0 9? 

. 170,4 0 

• ?50 0 0 

. ? 7 1 30 

.ft?°4 1 

. ?4 0 0 0 

. ? 0 ? 0 8 

.04749 

,?50 00 

.31341 

,9P?96 

. ?4ooo 

.07034 

.01704 

.4131P 

? . ftftft 1 0 

.14440 

.41310 

.4?,4Pft 

.37059 

.4131P 

.19710 

. 6?04 1 

.41318 

.1851? 

.89355 

.41318 

.1599? 

,9P?Qft 

.413)8 

.04560 

.01704 

,?pftp? 

3 .? 8 0 ft 8 

.1444? 

, 4 P ft p ? 

.5149? 

.3709° 

. 8Pf B ? 

. ?94 04 

.ft?9M 

, 4 P ft p ? 

. 1000? 

.85355 

.4P6P? 

. 1 0?88 

,9o?96 

,?pftp? 

. 0 ?0 1 5 

.01704 

.79000 

3.83349 

. J4444 

.74000 

.53743 

.37040 

. 7? 0 0 0 

,44080 

.ft?94 ] 

.75000 

. ?75ft ] 

■ P 4 3 4 S 

.79000 

. 1?935 

,9p?°6 

.79000 

. 03?7ft 

.01704 

.3830? 

4.??3?0 

. 1 4444 

.8030? 

•ft?f ?3 

.370=° 

.8870? 

.4811ft 

. ft ?° 4 1 

. P 0 7 0 ? 

.37978 

.04140 

.8830? 

.??4?0 

. 9 P ? 0 ft 

. 8 8 3 0 ? 

.08573 



Ul 

Ln 



.01704 

.06905 

ft. 11529 

.14645 

a 06009 

. ft7?99 

.37050 

,969«5 

,59069 

.6204 1 

, 06°P5 

.47404 

.65355 

.96009 

.3?345 

,9o?06 

.96909 

.11660 


LEAniNo-FOGE 

V0OTICF9 STRENGTHS 


?Y/P 

CAPGM'A 

HS> 

♦•«««*« 

.03015 

.3769fl 

.1 1600 

.21700 

.25000 

.25493 

.4131ft 

. ? 3P 07 

.5040? 

. 2 1 0 1 P 

.75000 

.1^400 

,ft»70? 

.05690 

,94005 

.03600 


* 



Ln 

CJ\ 



OFITA-CP niSTRIPllTION 


x/c 

?Y/P 

dflta-cp 

» 

«»>« 

»«««<««« 

.01254 

.03015 

6.90006 

.10900 

.03015 

1.6049? 

.20706 

.03015 

.04178 

.sonon 

.03015 

.74008 

.71*94 

.03015 

.54066 

.090Q? 

.0301 5 

.37009 

,90740 

.03015 

.14148 

.01254 

. 1 1 69P 

9.54001 

. 1 Coop 

.1 1690 

3.90147 

.20706 

.11690 

1 .73220 

,50000 

.11690 

.72563 

.710-94 

• 1 1 69fl 

.67064 

.0909? 

.11690 

.34010 

.90740 

.11690 

.23262 

.01254 

,?5000 

2.54033 

.10900 

.25000 

4.04777 

.20306 

.25000 

3.1 0560 

.50000 

.25000 

1.67312 

.71694 

.25000 

.91018 

.P909? 

.25000 

.63678 

.90740 

.25000 

.3469? 

.01 ?54 

.41310 

3.55714 

. 1090P 

.41310 

1.60550 

.20306 

. 4 1 3 1 P 

?. 01749 

.50000 

.4171P 

2.13332 

.71094 

.413ie 

1.36905 

.0009? 

.41310 

1.1500H 

.90740 

.41310 

.71047 

.01254 

. 506P 2 

3.37465 

• 10°0P 

.5060? 

2.22913 

.pppoo 

.5060? 

.04266 

.50000 

.9060? 

1 .08304 

.71694 

.5060? 

1.30006 

• P°09? 

.50602 

1.04503 

.9P740 

.5060? 

.99100 

. 0 1 ?54 

.75000 

3.62387 

.10900 

.75000 

2.80979 

.20306 

.75000 

.72067 

.50000 

.79000 

.4=655 

.71*04 

.70000 

.46310 

.0909? 

.75000 

.39202 

.90740 

.75000 
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.01 ?54 
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4.20095 
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. OP 30 J > 
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. PP 3 P ? 
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. <5 6° P c 
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.4*477 
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SFCTIOMAL PROPFRTIFS 

<nnnn»**«*o««««eo**oo 


I 

CL 

CM 

CU 

CT 

* 


o« 


a* 

1 

.°3B0P 

. 38B7S 

.Sb'lO? 

o.ooono 

3 

1 .47793 

.???S3 

.«1S15 

0.00000 

3 

1 .4R031 

.09114 

. 97p60 

0.00000 

4 • 

1 .4B0B3 

-.3620? 

.83349 

0.00000 

c 

1 .1 0R59 

-.4S1S7 

.66406 

o.onooo 

6 

.74497 

— . 3S 1 46 

.39306 

0.00000 

7 

.4471° 

-.3470] 

. 16941 

o.nnnoo 

P 

.91 1SR 

— . S 8 4 9 9 

. 18764 

0.00000 


TOTAL LIFT COFFF!CTFK'T= 1.305PR 

TOTAL PITCHING MOMFNT roFFF lCTFNT= . -.OOSl? 

TOTAL OPAC, COFFFICTFNTs .71<=n? 

TOTAL TMPtJST COFFFTCIFNT= o.oooon 


SPANWISF PRKSSURF AT CONSTANT x = , -.40000 

Y ?Y/R (LOCAL ) DFLTA-OP 
,0?R°9 .07S3P . 7 ° 0 R 1 

.10PP3 ,?9?44 1.43394 

,?lR c o .6??oo 3.713?R 


SPANWISF PPESFIJRF AT CONSTANT y = , .41000 

Y ?Y/R (LOCAL ) DFLTA-CP 

•0?R99 .04F01 . 6 0 1 R ? 

. 100P3 . 174R9 ,477 c 4 

• 31 ?R 0 .3731'’ 1.39777 

.3F416 .61648 ?.??S70 

. S OR P 4 .P7FP6 1 . ?P 1 9 1 


SPANWISF PPESSUPE AT CONSTANT Kt, l.?0500 
v ?Y/R (LOCAL ) PFLTA-CP 
.0?R9O .03??? .324?? 

.100P3 .1??11 • ? 3 9 ? 4 

.31SF0 . ?673P .40004 

. 3?4 1 4 .44100 l.]R?M 

. ? 0? P 4 .4.374? l.l??OR 

• 644R0 . P 0 ? 1 4 .43407 

.761 1 7 .94441 




2. Input Data of the Second Sample Case 
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Output of the Second Sample Case 
Input hata cartf 

rntiPLF OFLTA v I N(> vnnn. OfJF <c.CAlIN5l 


6 2 

0 P 

n ? 


? c 

9 0 

1 o 


n ? 

20.00000 

o.ooooo 

.ooooo 

I .?oooo 

c 5 

c c 

c r> 

C C 

o.ooooo 

1 . o o o o o 



o.ooooo 

o.ooooo 

0.00000 

O.OUOOO 

o.ooooo 

SApt-U' TCP 

SFrrjPv pc 

UUMPFp 

1 

-?.3 c .foo 

1 .7P7P.O 

0.00000 

-.0 7350 

SAPUWTfF 

srcTiot of 

f;M"RF d 

? 

-,07«n 

1 . 7.0750 

.*0250 

1 . 7B750 


5.00000 

?. 33350 

A. 03000 

.°000 n 

5 




0.00000 

0.00000 

O.OOpoO 

0.00O0O 

1 .7PT5P 

.*0250 



1 .7P750 

1 .27000 




CA^RFR SIOPF at FJUF oolO FOUNP FLtNFNT 


nznxv 

r7nv\/ 

o.ooooo 

0.00000 

0.00000 

0.00000 

0.00000 . 

0^00000 

0.00000 

0.00000 

0.00000 

0.00000 

0.00000 

0.00000 

0 . 0 0 0 0 0 

0.00000 

0.00000 

O.OOOOO 

0.00000 

0.00000 

0.00000 

0.00000 

0.00000 

O.OOOOO 

0.00000 

0.00000 

o.ooooo 

0.00000 

0.00000 

0.00000 

0.00000 

0.00000 

0.00000 

0.00000 

0.00000 

0.00000 

O.OOnoO 

O.OOOOO 

0.00000 

0.00000 

0.00000 

0.00000 

0.00000 

0.00000 

0.00000 

0.00000 

0.00000 

o.ooooo 

O.ooooo 

0. pnppp 

0.00000 

o.ooooo 

0.00000 

0.00000 

0.00000 

0 . 0 0 0 0 0 

0.00000 

0 . o o o o n 

0 .Pnpoo 

o.ooooo 

0.00000 

O.OOOOO 



CP 



n.oor oo 

0.00000 

0.00000 

0.00000 

0.00000 

0.00000 

0.00000 

0 . oonon 

o.opopo 

0.00000 

0 •. 0 0 0 0 o 

0.00000 

0.00000 

o . n o o o o 

0.00000 

0.00000 

o.oonoo 

0.00000 

0 . 0000.0 

o.ooooo 

0.00000 

0.00000 

o.ooooo 

0.00000 

0.0 00 00 

0.00000 

0.00000 

0.00000 

0.00000 

o.oonoo 

o.ooopo 

O.OOOOO 

o . o o o o 0 

o.oonoo 

0.00000 

o.ooooo 

o.ooooo 

o.ooooo 

P.00000 

0 . 0 C 00 O 

0.00000 

0.00000 

0.00000 

o.ooooo 

0.00000 

0.00000 

o.oonoo 

0,00000 

0 . o non o 

o.oonoo 

O.nnnpo 

0.00000 

0.00000 

0.00000 

0.00000 

0 .00000 

0.00000 

0.00000 

0.00000 

0.00000 

0.00000 

0.00000 

0.00000 

0.00000 

0.00000 

0.00000 


SAPf'WTSF SFCTTftM nr MJMRFR 1 

-?.3?POO 1.7P7«iO O.OOflno -.07350 1.7*750 .40250 

sapnwjsf section of mivpep ? 

-.07TPP 1.7P750 .402S0 1.78750 1.7R75C 1.27000 

CAVREr SLOPF AT COARSE GRIP POIJNO tLEVFNT 



P7PY 

nznyv 

0.00000 

0,00000 

0.00000 

o.ooooo 

0.00000 

0.00000 

O.OOOOO 

0.00000 

0 . oonpo 

o.oonoo 

0.00000 

O.OOOOO 

0.00000 

0.00000 

o.ooooo 

o.oonoo 

o.oonoo 

o.ooooo 

o.ooooo 

o . ooor o 

o.oonoo 

O.oonoo 

0.00000 

0.00000 




SiNlOd 10uJ.No:> 3 ‘JUj ONIutfJI jHi IV Jd01i> aJdNO 


00000*0 
00000*0 
0O0UO *0 
00000*0 
0 o 0 0 0 * 0 
00000*0 
00000*0 
00000*0 
00000*0 
0o000*0 
00000*0 
OQuOO * U 
00000*0 
0 0 0 0 0 * 0 
000u0*0 
00000*0 
00000*0 
00000*0 
oouoo*o 
00000*0 
00000*0 
00000*0 
00000*0 
00000*0 
0OO00* 0 
00000*0 
OoOOO * 0 
OOOOO * 0 
00000*0 
OoOOO *0 
UuOOO’O 
00000*0 
0 0 0 0 0 ’ 0 
00000*0 
Ououo '0 
00000*0 
00000*0 
UOuOO‘0 
00000*0 
00000*0 
00000*0 
00000*0 
00000*0 
00000*0 
00000*0 
00000*0 


00000*0 
OOOuO * 0 
00000*0 
0 0 0 0 0 * 0 
00000*0 
00000*0 
00000*0 
OOOOO’o 
00000*0 
00000*0 
oooou * o 
o o o o o * o 
00000*0 
00000*0 
00000*0 
00000*0 
0 G u 0 0 * 0 
00000*0 
00000*0 
OOOOO * 0 
UOOOO’O 
00000*0 
00000*0 
00000*0 
OOOOO * 0 
0 0 0 0 0 * 0 
0 J J 0 0 * 0 
00000*0 
00000*0 
00000*0 
00000*0 
00000*0 
Ouooo'o 

0 0 0 O 0 * 0 
0 0 0 u o * U 
0 0 o 0 0 * 0 
OOoOO’O 
00000*0 
00000*0 
OUOOO’O 
00000*0 
0 0 0 0 0 * u 
OOOOU * 0 
00000*0 
OOOOU * 0 
00000*0 


0 0 0 0 0 * 0 
00000*0 
00000*0 
00000*0 
00000*0 
00000*0 
00000*0 
00000*0 
O0000*0 
00000*0 
00000*0 
00000*0 
00000*0 
00000*0 
00000*0 
00000*0 
00000*0 
00^00*0 
OO0OO*O 
00000*0 
00000*0 
OOOOO * 0 
00000*0 
OOOUO'O 
OUOOO'O 
00000*0 
oOOOO'O 
00000*0 
ouuoo’o 

OOOUO *0 
00000*0 
OOOOu‘0 
OOOOO * 0 
00000*0 
00000*0 
OOuu 0*0 
‘UO 000*0 
00000*0 
OOOUO *0 
00000*0 
00000*0 
00000*0 
00000*0 
uOOOO'O 
00000*0 
ouooo'o 




07CJX 

07r>y 


0.00000 

n.ooooo 

n 

o.onono 

0.00000 


o.oonno 

n.ooooo 


n.ooooo 

n.ooooo 

r> 

' c . n n o n o 

0.00000 


n.ooooo 

n.ooooo 


o.oonno 

n.ooooo 


n.ooooo 

0 . 00000 


0.00000 

0.00000 


END or IPPUT OAT/' 





nnilPlP nFlTA VlNfj MOHFt 0»'F (STALING) 

alpha ( nFG.i=?n. non hach nuh8fp= o.ooo it f p«tio\’ mihpfp= o 


LFATING FPGF FLr HENTS 

«««< 1 IDO 


1.7876 • 

-1 .0395 

-P.3041 

-P.3560 

— ? .563? 

-P.14PR 

-1.5850 








.opp n 

.0P30 

n.nnoo 

n . ooou 

n.nooo 

0.0000 

0.0000 








o.onnb 

n.nnoo 

o.ooon 

n.nooo 

o.ooon 

. 1 6 0 P 

.3560 








4444 ?**** 














1.7P7S -1.1771 

- 1 . P3 q 5 

-1 . F P56 

-P.069? 

-1,7019 

-1.1381 

-.5381 

.0619 

.6619 

l.?619 

1.8619 

?.A619 

3.0619 

3.6619 

4.P619 

4.P619 

5.4619 

6.0619 










. ?n l ? 

.POl? 

. 0B3P 

. OP 3 0 

.0530 

.0830 

. 0 P30 

.0830 

.0830 

.0830 

.0830 

. 0R30 

.0830 

.0830 

, np?o 

, 0830 

. n83n 

. OP 30 

.n«3n 










o.onoo 

n . nnoo 

0.0000 

0.0000 

n.nnno 

.1508 

.3560 

.3560 

.3560 

.3560 

.3560 

.3560 

.3560 

.3560 

.3 C 60 

.3560 

.3560 

. 3560 

.7560 










*« e * 'i»4«4 














1 .7975 

-.5147 

-1.1771 

-1 .?1*« 

-1.3649 

-1 .0646 

-.5008 

, 09Q? 

.699? 

l.?9P? 

1.899? 

p.499? 

3.099? 

3.699? 

4.?99? 

4 .POP? 

8.490 ? 

6.099? 











.31 PS 

. 3 1°5 

.P01? 

. ? 0 1 2 

.P01P 

.POl? 

.POl? 

.POl? 

.?01? 

,?01? 

,?01? 

,?01? 

.?01? 

,?01? 

.?r>i? 

.301? 

.P01? 

. ?P 1 2 











n.pnnp 

n.nnoo 

o.onoo 

0.0000 

o.nooo 

.1508 

.3560 

.3560 

.3660 

.3560 

.3560 

.3560 

.3560 

.3560 

.3560 

,3 C 60 

.3560 

. 3560 











4444 44444 














1 .7P75 

-.050? 

-.5147 

-.5439 

-.6605 

-.4374 

.1364 

.7364 

1.3364 

1.9364 

? .5364 

3.1364 

3.7364 

4.3364 

4.93*4 

5.5364 

6.1 364 












.4035 

,40?5 

.3195 

.3195 

.3195 

.3195 

.3196 

.3195 

.3195 

.3196 

.3195 

.3195 

.3195 

.3195 

.31 °5 

.3195 

.3195 












o.nnno 

n.nooo 

0.0000 

0.0000 

n.nooo 

.1608 

.3560 

.3560 

.35(40 

.3560 

.3560 

.3560 

.3560 

.3560 

.356P 

.3560 

.3560 












4444 44444 














1 . 7 P 7 5 

,?i°o 

-.050? 

-.0735 

-.1666 

.0195 

.5834 

1.1834 

1.7834 

? • 3834 

?,9834 

3.5834 

4.1834 

4.7834 

5 . 3 P 3 4 

8.9834 

6.5834 












• P?°5 

. 5?°5 

,4 0?5 

.4025 

.40?5 

.40?5 

,40?5 

.40?5 

.40?5 

,40?5 

.40P5 

,*0?5 

,40?5 

.40?S 

.40P5 

. 4 n?5 

. 4 0 P5 












o.nnnn 

n.nnoo 

o.onoo 

o.ocoo 

o.nooo 

• 150P 

.3560 

.3560 

.3560 

.3560 

.3560 

.3560 

.3560 

.3560 

.3560 

.3560 

.3560 












4444 *,«*«« 














1 .7P7P 

.6309 

. ? 1 9 0 

.1990 

.1196 

• P78E 

.8433 

1 ,44?3 

?. 04P3 

?.6423 

3.?4?3 

3.84?3 

4.44P3 

5.0423 

5 .64?? 

6 . ?4?3 













,7?40 

, 7?4 0 

. 5?95 

, 5?95 

. 5?95 

..6?05 

.S?95 

.5395 

.5395 

.5295 

.5795 

,5?95 

,5?95 

»5?95 

.spgp 

, 5 P 95 













n.nnoo 

n . n n n n 

O.OOOn 

o.onoo 

n.nooo 

.1808 

.3560 

.3560 

.3560 

.3560 

.3560 

.3660 

.3560 

.3560 

. 35f 0 

.7560 













*004 7*«** 














1 .7978 

1 1 
vC 
o 

• 

0 — 

.6309 

.616? 

.5576 

.6747 

1 . ?386 

1.8386 

P.4386 

3,0386 

3.6386 

4.H3B6 

4.8386 

5.4386 


f- . mp 6 



.9485 .9485 

.7240 

.724 0 

.7240 

.7240 

.7240 

.7240 

0.0000 0.0000 
.3580 

0.0000 

0.0000 

0.0000 

.1508 

.3560 


1.7075 1.5184 

8.4581 

1.1065 

1 . 0978 

1.0633 

1.1323 

1.6961 

1 . 1 4 ?n 1.1430 

.0485 

.9485 . 

.9485 

.9485 

.9485 

.0485 

0.0000 O.0000 

. 3 c 8'o 

0.0000 

0.0000 

0,0000 

.1508 

.3560 

#0# o»««« 

1.7575 1.6529 

1 .5184 

1.5150 

1.5013 

1.5286 

2.0924 

1 . ? 70 0 1.2065 

1,1430 

1.1*30 

1 .1430 

1.1430 

1.1430 

0.0000 0.0000 

0.0000 

O.OQOO 

0.0000 

.1508 

.3560 


.7240 

.7240 

.7240 

- .7240 

.7240 

.7240 

.7240 

.3560 

.3580 

.3560 

.3560 

.3560 

.3560 

.3560 

2.2961 

2.8961 

3.4961 

4.0961 

4.6961 

5.2961 

5.B961 

.9485 

.9485 

.9485 

.9485 

.9485 

,0485 

.9485 

.3580 

.3580 

.3560 

.3560 

.3560 

.3560 

,3560 

2.6924 

1,1430 

.3560 

.3.2924 

3.1430 

,3560 

3.8924 

1.1430 

.3560 

4.4924 

1.1430 

.3560 

5.0924 

1.1430 

.3560 

5.6924 

1.1430 

.3560 

6.29?4 

1.1430 

.3560 



WAKF ELUENTS 


»«»* ] <>««« 


1.7875 

p.ppn 

2.616? 

3.8162 

5.0'.6? 

6.2162 

n.nonc 

o . 00 00 

0.0000 

0.0000 

0.0000 

O.OOOO 

o.oopn 

P.0000 

0.0000 

0.0000 

0.0000 

0.0000 

«»«o ?*«** 

1.7P7=. 

?.?oi° 

2.616? 

3. 8162 

5.016? 

6.216? 

.po-jp 

. OP30 

.0830 

.0830 

.0830 

.0830 

p.nopo 

p.0000 

0.0000 

o.oooo 

0.0000 

0.0000 

«»«« 

1.787= 

?.?nlo 

2.8182 

3.8162 

5.016? 

6.216? 

.201? 

.2012 

.2012 

. 2 0 1 2 

.201? 

.201? 

O.POPO 

0.0000 

0.0000 

P.0000 

0.0000 

0.0000 

«««« &«»«» 

1.787= 

2,2019 

2.8162 

3.6162 

5.016? 

6.216? 

.319 = 

. 3 1 0‘S 

.3195 

.319b 

.7195 

.3195 

o.ooop 

0.0000 

P.0000 

0.0000 

0.0000 

O.OOOP 

«««« c«ig« 
1 .7875 

2.7019 

2.618? 

3. PI 62 

5.016? 

6.216? 

.“P25 

.402 = 

.4025 

,402b 

.4025 

.4025 

p . pppp 

P.0000 

O.OOOP 

0.0000 

0.0000 

0.0000 

ttftflfl f«c«« 

1.7875 

2.2019 

2.616? 

3.8162 

8.016? 

6.216? 

,5?o5 

.929 = 

.5295 

. 5 ?9b 

.5?95 

.5?°5 

r. . n n n p 

0.0000 

0.0000 

o.oooo 

0.0000 

O.OOOP 

oe<M> 7«»«« 

1 .787 = 

2.2019 

2.616? 

3 . P 1 62 

5.016? 

6.216? 

.7?40 

.7240 

.7240 

.7240 

.7240 

.7240 

p.OPPO 

0.0000 

0.0000 

o.oooo 

0.0000 

P.POOO 

*0*0 pOOOO 

1 .7P7P 

7.2019 

2.616? 

3 . P 1 62 

=.016? 

6.716? 

.=4P5 

.9499 

.94P5 

.94Hb 

.0485 

.0485 

p . o p n n 

O.OOOP 

0.0000 

n.cnuu 

0.0000 

n.opon 

***« QPOttO 

1 • 7 P 75 

2.2019 

2.616? 

3.816? 

=.016? 

6.216? 

1 . 1470 

1 . 1430 

1.1*30 

1.1430 

1.1430 

1 .1430 

o.onrri 

o.oooo 

0.0000 

0. npOU 

o.oooo 

p . ppop 

1 .707 = 

7 . 7P 1 9 

2.616? 

3.8162 

5.0J6? 

6.716? 

1 .2==? 

1.7=52 

1.255? 

1.2562 

1.75=2 

1.755? 

0 . P 0 OP 

" .0000 

P . 0000 

0.0000 

0.0000 

P.0000 



1.500 I 
I 
I 
I 
I 

1.313 I 

I ♦ 

T 

' T 
I 

1.125 I * 8 8 8 8 8 8 8 8 

I 
I 
I 
I 

.<J37 T *77 77777 7 7 

I 
I 
I 
I 

.750 1 


T ♦ 6 6 6 6 86668 

T 
I 
I 

.562 I 

I 55 5 5 5 5 5 5 5 5 5 5 

I 

I 

I 444444 4 44 4 64 4 

.375 I 

T 3 3 3 3 3 3 3 3 3 3 3 3 3 

I 
T 
I 

.187 I 2 ? 2 2 2 2 2 2 2 2 2 2 2 2 

I 

r 

i liiiiiiiiiiiiii 

i ... 

-.000 I ♦ 

I x 1 — -— 1 1 - 1 T 1 1 1 - 1 

-5. non -3.500 - 2.000 -.500 1-000 2.500 4-000 5.500 7.000 8.500 10.000 


X V? Y 


O' 

00 




CTi 

vO 


L 8/\ X 


000*01 0 05*8 000*i 0 08*5 O00*-? 005*2 000* 1 0oS*“ 0U0*2- 00a*i‘- 000*8- 

I j i j x 1 X x ----I- i 1 


8 L H 8 7 t 2 l 


U X. 8 8 7 fc 2 I 


'tl9* + L9**L9**t9**L9 + *L\)**L9 + *L\j*+L ** ♦ ♦ ♦ I 


000*1- 


05i*~ 


I 
1 
1 
1 
I 
1 
I 
I 
1 
I 

I 008*- 

I 

I 

I 

I 

X U 82 * — 

1 

1 

1 

I 

X 000*- 

I 

X 

X 

X 

I 082* 

I 

I 

X 

I 

I 008* 

I 

X , 

I 

X 

X 08X.* 

X 

I 

I 

i 

X 003*1 







1.000 i 
i 

T 

T 

I 

.750 i 
I 
I 

' I 
I 

.^eo t 

I 

T 

1*4 

T 

.250 T 
I 

! 1 2 

I 

X 

-.non I 1 2 

I 
I 

r 

T 

-.250 I 
I 
I 
I 
I 

-.50" I 

r 

i 

i 

i 

-.750 I 
I 
I 
T 
I 

-1.000 I 

I T — 

O.nop .1^0 



I— 1 1 1 

.200 .*50 .600 .750 


Y VS 7 



I 1 1 1 1 

.500 1.050 1.200 1.350 1.500 


o 



V 


1.500 I 
T 
I 
I 
1 

1.313 I 
I 

* I 
T 
I 

1 . 1 ?5 I 
I 
I 
I 
I 

.937 I 
I 
I 
I 
1 

.750 I 
I 
I 

I • 

I 

.56? I 
T 
I 
I 
I 

.375 i 

I 

I 

1 

T 

.107 I 
I 
I 
1 
T 

-.000 I 

t 1 

- 5.000 - 3. 500 


1 1 — 

?.00U -.500 1.000 


9 9 9 o 9 

pan n r 

7 7 7 7 7 

6 6 6 ' 6 6 

5 5 s 5 a 

4 4 4 4 4 

3 3 3 3 3 

2 ? ? ? 2 

111 1 1 

1 j 

2.500 4,000 


X VS Y 


9 

a 

7 


6 


5 

4 

3 


2 

1 


500 



I 


7.000 


-I 

8.500 


— T 

lo.ooo 



49 

n 


l.oon 


.750 


! 

I 
I 
I 
T 
I 
I 

> I 
I 
I 

.500 I 
I 
I 
I 
I 

.?50 I 
I 
I 
I 
I 

-.000 I 

I 

I 

T 

I 

-.250 I 
T 
I 
I 
I 

-.500 I 

I 

I 

I 

I 

-.750 I 
I 
I 
I 
I 

-1.000 I 

I- 


* ♦ * 


3 


-5.000 


-3.500 -2.000 


-I- 1 1 1— 1 1 1 —I 

-.500 1.000 2.500 A. 000 5.500 7.000 A. 500 10.000 


M 


X V5 7 



CO 

f'. 


L b A a 


00b* I 
I- 


0bk:*I 008*1 0b0*l 006* 0 Si* 009* 

J i -! 1 1 1- 




nuC* 

1- 


Obi * 


0 oo * 0 
1 


♦ * 


I 000*1- 

1 

1 

I 

I 

I OSi*- 

I 

I 

I 

I 

I O0S*- 
1 
I 
1 
I 

I Ob 8 *- 

I 

I 

I 

I 

I 000*- 
1 
I 
I 
I 
I 
I 
I 
I 
I 
1 
I 
I 

■ » 

I 

I 

I 0 Si* 

I 

I 

I 

l 

I 000*1 


0 b 2 * 


00b* 


A 



r} WING VORTFX STPENGTHS 


X/C 

2Y/R 

PAMAY 


««<« 

«<«»« 

.01704 

.03036 

3.59407 

.14645 

.03036 

.=9458 

. 370 c 9 

.03036 

.40134 

.6?041 

.03036 

.41650 

.85355 

.03036 

.20818 

.93?96 

.03036 

.06456 

.01704 

. 1 0990 

1 .P4774 

.14645; 

.1 oqoo 

.51371 

.37059 

.1 0050 

.50379 

.6394 i 

. 1 0090 

.43369 

. 85-155 

. 1 0050 

.31943 

.9P?°6 

.10950 

.06394 

.01704 

.30743 

3.16849 

.146455 

.30743 

.6157? 

.370GO 

.^0743 

.96133 

.6394 ] 

.30743 

.39437 

.85355 

.30743 

.30959 

,9o?9 a 

.30743 

.05988 

.01704 

.38667 

3.73316 

.14640 

• 3P667 

,01400 

.370?9 

. 3R667' 

.51791 

.63941 

.38667 

.33941 

.09399 

.38667 

.19500 

,9P?96 

.3R607 

.05518 

.01704 

.36369 

3.36377 

.14645 

.36369 

.70558 

.37090 

.36369 

.44748 

.63041 

.36269 

.3076? 

.99335 

.36369 

.18067 

,0P?Q6 

.36369 

.05169 

.01704 

.48770 

3.80983 

.14645 

.40770 

.63311 

.37050 

.48770 

.43098 

.63041 

.48770 

.30000 

.05335 

.48770 

.171 0? 

,on?Q6 

.40770 

• 0 c ' 1 6 9 

.01704 

.60046 

5 • 1 Q 7 6 7 

. 14640 

.65046 

.63407 

.37050 

.69846 

,44070 

.67041 

. 6 c 046 

. 3 0 6 0 4 

. 833 c: 9 

. 6 C P 4 6 

.17339 

.Qppof, 

.60044 

. 0S"»45 


d. 

1 







.01704 

.52923 

7.17912 


.1464$ 

.52923 

.79070 

© 

.3705') 

.025?? 

. c l°0O 

.6?°41 

.P?9?3 

.34953 


.RR-.te 

.52923 

.10920 

r*> 

.9 5206 

.o?9?3 

• 057P 7 


.01704 

.95424 

11 .06R21 


. 14*-45 

.95424 

1.12452 


.37090 

.95424 

.65775 


.6204] 

.994?4 

.45266 


.05399 

.95424 

,29259 


,05206 

.05424 

.09640 


lEADIK'5-FnOE VOPTirr*; sTPFNPTHS 

OOCOOOOtf tfc» 


2Y/P 

CAPOtffl 

«»o« 

«■ * 

.09026 

.49745 

.10950 

.31003 

.20743 

.?9?49 

« 2 0 6.6 7 

.25299 

.3^269 

.29365 

.40770 

.27700 

.6 5546 

.25521 

. °?923 

.17709 

.99424 

.07324 





IS* 


(J) DELTA-CP DISTRIBUTION 



x/c 

2Y/R 

PFLTA-CP 

(-1 

0*0 

oooo 

oooooooo 


.ni?54 

.03026 

?.62°66 


.loonp 

.07026 

1.59500 


.28306 

.03026 

.90802 


.50oon 

.03026 

1.02596 


.716-94 

.03026 

.70169 


.89002 

.03026 

.38609 


.08746 

.03026 

.16028 


.01254 

.10080 

4.01913 


.10008 

. 1 09 c 0 

.43372 


.28306 

.10980 

.50924 


.50000 

.10050 

1 .06 ? i? 


.71604 

. 1 ooc n 

.81478 


.8000? 

.1 008(1 

.558R1 


,0O74f, 

.10950 

.30239 


.01 ?54 

.20743 

3.98947 


.10008 

.20743 

.18237 


.28306 

.20743 

.86410 


.50000 

.20743 

1.51878 


.71804 

.20743 

1.26026 


.800°? 

.20743 

.96383 


.00746 

.20743 

.69370 


.01254 

. 2°667 

4.93930 


. 1 OOOP 

.28667 

-.54724 


.90306 

.28667 

.61739 


.50000 

,28667 

1 .33812 


• 71 6*34 

.28667 

1.03098 


.eoo9? 

.28667 

1 .00454 


.°P746 

.28667 

.71479 


.01254 

.36269 

4.61817 


. 1 OOOP 

. 36260 

2 . 0 6 o 9 1 


.28306 

.36260 

1 .70800 


.50000 

.36260 

1.48027 


.71604 

.36260 

1 .16088 


.8000? 

.36269 

.05976 


.00746 

.36260 

.74452 

V^r 

.01254 

.40770 

2.83408 


. 1 090P 

.48770 

1 .68652 


.28306 

.48770 

1.21625 

& 

.50000 

.40770 

1.0711Q 

.71604 

. 48770 

1.01238 


.8000? 

.48770 

.70103 


.98746 

.48770 

.6.65 21 


.01 ?54 

.65846 

2.32425 




.10908 

.65846 

1 

.77346 

.PP306 

.65846 


.94617 

.50000 

.65846 


.74600 

.71604 

.65846 


.7?034 

,Bon«? 

.65046 


,48046 

.90746 

.65846 


. 3P853 

• 0 ) P54 

. P?9?3 

?. 

. 145B0 

. ] oooe 

. 8?9? 3 

1 

.80465 

•PP306 

.0? 9?o 


. P BPS 1 

,5oopn 

. P? q ?3 


.57754 

.71604 

.P?9?3 


.333R7 

,fio 0 q? 

.P?9?3 


.1P5P4 

.90746 

.PP923 

- 

.05753 

.01 ?54 

.o54?4 

1 

.99767 

. 1 oor.P 

,054?4 

? 

.01973 

,?P306 

,o=4?4 


.90859 

.50000 

,o54?4 


. 84597 

.71694 

.06 4? 4 


,47?S7 

,F9(l0? 

. 954?4 


.30501 

.90746 

,954?4 

- 

.10508 






SFCTTONAL PROPERTIES 
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Results for iterations 1 and 2 are omitted. 

Initial Shape of the Free Sheet and Concentrated Core is 
shown in Iteration 3. 
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Similar results for several iterations till " SFAC " value 
shows an increase ( after fifth iteration ) from previous 
value. ( See summary sheet on next page ) 

The best solution is shown after summary sheet. 
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— I 1 1 V 1 1 1 1 X 1 
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TOT 


i SA A 


OOSi* I 

I- 


0 &e*t 002*1 050*1 U06* QS1* 009* 

—I — 1 1— 1 1 1 



OSV* 
i- 


ooc* 

1- 


Obl* 
1- 


000 


*0 

I 

X 000* 1- 

I 

I 

I 

X 

I oox.*- 

X 

I 

I 

I 

I oov- 

X 

I 

I 

X 

I 001*- 

X 

I 

X 

X 

I 002* 

I 

1 

I 

X 

I Qob* 

I 

I 

I 

X 

I 00 0* 

I 

I 

1 

I 

I 001*1 

X 

I 

I 

I 

I OOVI 


l l 
♦ 

l I 


zz 

z 


A 


A 



0 


*8 


l.*50 


1.444 


I 
T 
I 
I 
I 
I 
T 

a. I 

T 

I 

1.738 I 
I 
I 
I 
I 

1.031 I 

I 

T 

I 

I 

• ??5 I 

I 

I 

I 

t 

• 61«J 1 

I 
I 
1 
I 
I 
I 
I 
T 
1 
I 
I 
I 
I 
I 

-.000 I 

-5.000 


.41? 


.706 


9 9 

8 8 
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6 6 . 

5 5 

4 4 

3 3 

2 2 

1 1 


6 

7 


— I I 

-3.500 -?.000 


■r- ; t 1 — t 1 1 1 1 
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Z SA X 


000*01 00b* 8 000*Z 00b*S OOO’tr 005*2 
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9 
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♦ 

6 
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8 
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6 


000*1 Oob*“ 000*2- 00b*£- ■ 000*5“ 
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I 000*1- 
I 
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1 

I 
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I 

I 

I 

1 
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I 

I 

I 

I 
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♦ I 

I 

I 

I 

I 052* 

I 

I 

I 

I 

I 29S * 

I 

1 

I 

I 

I Sid* 

I 

I 

I 

I 

I 88-1*1 

I 

I 

I 

l 

X 005*1 
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1.500 1 
I 
I 
I 
I 

l.ino I 

I 

. I 
I 
I 

.575 I 
I 
I 
I 
I 

.56? I 
I 
I 
I 
I 
I 
I 
I 
I 
1 
I 
I 
I 
I 
I 
I 
I 
I 
I 
I 

-.6PP I 
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I 
I 
I 

-1.000 I 

I — 
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7 6 


5 ♦ 


3 
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* ♦ 


7 

B 

94 

5 


2 7 
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■I j 1- 1 1 1 1 1 1- 1 
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*4 





wlNC- VnpTFx STRFMGTMS 
<nnMnn>oon*«*«*eo««e*e 


x/c 

2Y/P 

GAMAY 

*»» 


«*«»• 

.01704 

.03026 

.97697 

.1464= 

.03036 

. 3021.5 

.37050 

.03036 

.35159 

.63041 

.03036 

.35200 

. P^pcq 

.03036 

.30345 

, 0 p?Of- 

.03036 

.07610 

.0] 704 

.10550 

1.33577 

.14645 

.10°50 

.31044 

.37000 

.10550 

.36876 

.4?04J 

.10950 

.35601 

. 853 cc ' 

.10550 

.20574 

.55356 

.10950 

.07352 

.01704 

.30747 

1.57073 

.14045 

.30743 

.39524 

. 370 c 5 

.30743 

.43781 

.6254 1 

.20747 

.25054 

, PPOP5 

.20747 

.10331 

. c 03°6 

.30743 

.05902 

.01704 

, 3P667 

1.54632 

.14645 

.25667 

.67581 

. 371000 

. 25667 

.37479 

. 6?°4 1 

.35667 

.23251 

. 55355 

.38667 

.15310 

.oppof, 

.35667 

.04507 

.01704 

.36369 

2.89752 

. 14 5 4 0 

.36365 

.50371 

.37050 

.36369 

• ?°9 1 5 

.62041 

.36365 

. 1 °563 

• 55.355 

.36369 

.13539 

,OP?05 

.36365 

.03339 

.01704 

. 4 P77 0 

3.9P843 

.14545 

.45770 

.44503 

. 3 7 0 c O 

.45770 

.39755 

.5?041 

.45770 

. 1°545 

.0^355 

.45770 

.10403 

.95296 

.45770 

.03691 

.01704 

.65546 

4.09470 

.14445 

.65546 

.45o?0 

.37050 

.655.46 

.34=31 

. 6304 1 

.65546 

.33731 

.05755 

.65546 

.11751 

.95396 

.6 C 846 

.03033 
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.01704 

.02933 

5.90207 

.14645 

. 02933 

.59099 

.37050 

. 82923 

.30304 

.6?04) 

.P2 9? 3 

.27701 

. 95355 

,0?9?3 

.15767 

.0o?o6 

.92 q 23 

.04029 

.01704 

. 95424 

9.58142 

.14645 

.95424 

.96095 

• 37 050 

. Q c 4 2 4 

.57694 

.67041 

. 95 4 

.39807 

.05755 

. 9 5 4 p 4 

.23803 

. op - pnf , 

.95424 

.07833 


L5AnlN8-FP8E 

VOPTICFS STRENC-TH5 


2Y/0 

CAPOAMA 

0*06 

0000000 

.03026 

.10657 

.10950 

.20608 

.20743 

.21167 

.?P467 

•1°413 

.34760 

.26172 

.48770 

• 2 1 8 4 7 

.65846 

.20201 

.82923 

.14585 

.95424 

.06343 



* ^ 
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DFLTA-Ce P I STR I Put ION 


x/r 

?v/g 

nPLT6-C D 

o«o 

«no« 


.01 

.070?* 

.9049* 

. 1 09op 

.070?6 

1 . ?P?04 

.?*70* 

.070?* 

.PP40 p. 

.5onno 

.030?* 

.7110? 

.71*04 

.030?* 

. *°3 1 P 

, gone? 

.030?* 

.33*70 

,°P74* 

.0307* 

. ? 4 0 0. 3 

.01? c 4 

.10*00 

?.*P?03 

. l n one 

. 1 00*0 

,o?O0P 

.?P*0* 

' . 10 0*0 

.9*070 

.?nr°n 

. J 00*0 

. 0?° J * 

.7 ] * 04 

. 1 0*50 

.*4143 

.Per* 3 ? 

.10050 

.41340 

.9P74* 

.10050 

.14**7 

.01?*4 

• ?0743 

1 . 3 0 * ? 1 

. 1 0O0P 

. ? 0 74 3 

-.11517 

.?p*o* 

. ?0743 

1 . 03°3° 

.50*00 

.?0747. 

] . 4 ? 3 7* 

.71*04 

• ?0 74 3 

1.013*7 

.FOOD? 

• ?0 7 4 3 

.*5418 

.OP 74*, 

• ? 0 7 4 3 

.33*57 

.01 ?04 

, ?°**7 

7.?4?P5 

. l oonp 

. ? P 6 * 7 

?.0?O5* 

. ? * 3 o * 

. ?P**7 

1 .100?S 

.50000 

. 7P6*7 

. 57? 1 4 

.71*04 

. ?P6*7 

.PPOPO 

.PO0O? 

. ? P * * 7 

.40340 

.0P74* 

.?pf *7 

.454P3 

.01?54 

* 7 * ? * 0 

7 . 0*349 

. 1 POOP 

. 3* ?* 0 

1 ,P43*3 

,?**06 

. 3 * ? * 9 

1 . ? 5 3 1 2 

.50*00 

,?*.?*o 

1.10310 

.71*94' 

. 367**9 

.017*? 

. pQflOP 

.3*?*9 

. 7?4C4 

. OP 74f 

.3*?*° 

,4**P5 

. 0 ) ? c 4 

. 4 P 7 7 0 

1 .45?71 

. 1 0O0P 

, 4 P 7 7 0 

1 . ? P 9 P ? 

.?P10* 

.4*770 

1 .03077 

. 5 r> r r p 

.4*770 

.0*973 

.71*04 

.41 770 

.55*3* 

. PC (10? 

.4*770 

. 6*300 

.0074* 

.4*770 

. CR 10S 

. 0 1 7*4 

. * r * 4 * 

1 .*04?* 
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.lPOOP 

.?83P4 

. 50 P 0 P 

.716°4 

.8qoo? 

.9074* 

.P1? C A 

• 10°op 
.?P3 06 

.50000 

.71694 

.R909? 

,9p 746 
.P1? C A 
. 1 nopo 
.28306 
. c . n o n p 

• 71/194 
,10(10? 
,9p746 


.65R46 
• 65R 46 

. 09146 
.65846 
.65846 

. 65 PA 6 

. 8 ? 9?3 

.0?°?3 
,P? C ?3 
. 8?9?0 
,P99?3 

.P?9?3 

. P?9?3 
.9 r -A ?4 
.954?4 
.°54?4 
,99A?4 
. o 5 4 ? 4 
. 9 '- 4?4 
.pr.4?4 


1.23161 

.7509? 

.6174? 

.6713? 

.47015 

.38511 

?.C9l 14 
1 .68458 
.80619 
,40411 
. 3 ? 9 3 P 
. 16’P1 
.00385 
1 .33408 
1 .?0937 

•6«o?C 

.58164 
.33570 
• 1 7 P 59 
-, 1?067 



SECTIONAL PPOPERTIE5 


I 

CL 

C« 

CU 

CT 

o 

« * 



• « 

1 

.7169° 

. 1 p 1 ?3 

.26096 

0.00000 

? 

.80969 

. 10646 

.20470 

n.ooooo 

3 

.83793 

-.19245 

.30408 

0.00000 

4 

1.31511 

-.16279 

.47866 

o.noono 

5 

1.37016 

-.37423 

.i>Olf 1 

p.oooon 

6 

.00130 

—.40234 

.32808 

o.nooon 

7 

.73100 

-.39064 

.26800 

0 . p p 0 0 0 

8 

,64?41 

-.41574 

.2338 2 

O.PPOOO 

o 

.56701 

-.43157 

.20870 

o.roono 


TOTAL LIFT COFFFTCIFNT= .86670 

TOTAL PITCHING 0 M F N T COEFFICIFNT= -.15059 
TOTAL p»AG CPFFFICTEMT= .71540 

TOTAL THRUST COFFF ICIFNT= 0.00000 


SPANWJSF PRFSEHPF AT CONSTANT y = . O.OflonO 

V 2Y/ Q (LOCAL ) DELTA-CP 
. 03P44 .08.61 A .7 2062 

.1.7006 .31166 . OF 60 ] 

.26344 .89047 1.22761 

.36406 . 8 1 503 ?.S?o?o 


SPANWIPF PPESSI'PE AT CONSTANT X=. 1.00000 

Y ?v/p.{LOCAL) OELTA-CP 


. P3844 

.042^7 


.5701 8 

.13006 

.15401 


.57436 

.26344 

.20177 

1 

.04410 

.36406 

.40321 


.75933 

.46061 

.51014 

1 

.12420 

.61037 

.68598 


•905ci 

.83625 

.92617 

1 

.08864 
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FORTRAN PROGRAM LISTING 

This program was written in FORTRAN IV language and is operational on 
CDC Cyber 175 Computer system at Langley Research Center. The run stream 
(control cards) is listed at the end of the program. The following table 
is an index to the program listing. 

Program or subroutine Main Purpose 


LEVSP 


TAN 

SKIPR 

ARCOS 

DOTPRD 

CRSPRD 

VDTWNG 

VDTFRE 

NORMAL 

SWAHC 

ABVLE 

INOUT 

ORDER 


executive routine, prints out free 
elements in the leading-edge and wake 
vortex system, and to check convergence 
trigonometric function 
skips records 

inverse trigonometric function cosine 
dot product of two vectors 
cross product of two vectors 
calculates induced velocity due to 
wing elements 

calculates induced velocity due to 
free elements 

computes unit normal vector 

sidewash correction 

absolute value of a vector 

check control points by vector analysis 

sets up the order of two parallel vortex 

segments on the leading-edge free elements 


2 _h. 


Page 

114 


CAMBER 


computes the magnitude of 
[(Xj^ - x 2 ) 2 + B (y 1 - y 2 ) 2 + - z 2 ) z ] 

calculates camber slopes at wing bound elements 


118 

118 

119 

119 

119 

119 

124 

128 

128 

130 

131 

131 

132 


and control points 


133 



Ill 


ZCDX - 

ZCR 

PNLEF 

ZCAM 

FUNA 

INFL2 

NEWVEL . 
VMSEQN 

GEOM 

PNLWNG 

SHAPLE 

SHAPTE 

FRELM 

SPLINE 

APLOT 

PLOTT 

LNPLOT 

SOLN 

AERODN 


defines analytical camber slopes 
determines camber slopes numerically 
determines control point locations within 
or without a flat leading-edge flap 
cubic spline interpolation of camber slopes 
computes induced velocity due to a vortex 
element in the far field 

computes induced velocity due to a vortex 
segment in the near field 
computes total velocity at a point 
vector method for solving simultaneous 
equations 

defines the wing and free element geometry 
generates the grids of bound and trailing 
vortex elements 

defines the shape of leading-edge 
defines the shape of trailing-edge 
finds the initial coordinates of free 
vortex elements 
cubic spline subroutine 

sets up dimensions for plotting leading- 
edge and wake elements 

manipulates leading-edge and wake elements 
coordinates in a form suitable for plotting 
generates plots on line printer 
sets up dimensions for. solving the strengths 
of wing and leading-edge vortex system 
solves strengths of wing and leading-edge 


134 

135 

136 

137 

138 

139 

140 

143 

144 
154 

156 

157 
157 

163 

164 

165 

167 

170 

171 


vortex system 
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THRST 

LOADS 

COEFS 

SURFSET 

SURFORD 

MATINV 

NEWSHAP 


NEWELM 

CORE 

CFAEC 

SEGMNT 

NEWBC 

NEWDA 

MODEL 

CHOPS 


calculates sectional leading-edge thrust 
coefficients 

sets up dimensions for evaluating aerodynamic 
characteristics 

computes aerodynamic characteristics 
sets up program for surface spline 
surface spline interpolation 
matrix inversion with accompanying solution 
of linear equations 

sets up dimensions for computing new loca- 
tions of leading-edge and trailing-edge 
vortices by making them force free 
computes new locations of leading-edge 
and trailing-edge vortices by making them 
force free 

finds the centroid of the diffused leading- 
edge vortex element system 

computes the force on each vortex segment of 
core 

computes the force gradient of each vortex 
segment of core 

returns to the previous location 

saves newly computed locations of leading- 

edge vortex elements system 

generates the vortex segments along, each 

free element on the free vortex sheet 

determines the intersection between the 


174 

175 

177 

190 

193 

193 

196 


197 


214 

216 

217 

218 

219 

220 
222 


centroid of leading-edge vortex system and 
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the leading-edge vortex filament 

LIRITN establishes the free sheet and concentrated 223 

core 

AZCORE adjusts z-coordinates of initial core 228 

APEXC rearranges vortex segments of core 228 

AYCORE adjusts y-coordinates of initial core 229 

LEADLM generates the equal-length vortex segments 231 

on each free element 

CFSET determines z-coordinates of vortex segments 232 

along each free element 

MINMAX determines the maximum and minimum of 232 

two numbers 

CENTRD computes y- and z-coordinates at some 233 

stations chosen by the program 

COORD coordinates computation 233 

CSIPAR cubic spline fitting 234 



c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


OVERLAY ( LLVSP ,0,0) LEV 

PROGRAM LtVSP (INPUT, OUTPUT, TAPE1 ,TAPE2 ,TAPE3 ,TAPE5=INPHT,TAPE6=0UTLEV 
lPUT.PUNCH»TAPE4.TAPE7,TAPFfi,TAPE9,TAPE10) LEV 

LEV 

AERODYNAMICS OF LOW ASPECT-PATIO WINGS WITH PARTIAL LFADING-EDGE LEV 
SEPARATION (LEAOING-FDGE VORTEX SEPARATION PROGRAM) LEV 

BY - JENN LOUH PAO , SUOHTR C. MEHPOTRA AND C. EDWARD LAN LEV 

UNIVERSITY OF KANSAS LEV 

LEV 

THIS PROGRAM IS APPLICABLE TO NONPLANAR WINGS (LIMITED TO TWO LEV 
SPANWISE SECTIONS ) LEV 

LEV 

PROGRAM IS DIVIDED INTO F T VE OVERLAYS. LEV 

OVERLAY { 1 ♦ n ) PFAD ALL THE DATA CARDS AND SFTS UP INITIAL LEV 

GEOMETRY OF THE WING AND THF FPFF ELEMENTS LEV 

OVERLAY (2*0) PLOTS FREF ELEMENTS OVER THF WING AND IN THE WAKE ONLEV 
THE LINE PRINTER OUTPUT LEV 

OVERLAY (3*0) SOLVES FOR THE STRENGTHS OF WING AND LFADING-EDGE LEV 
VORTEX SYSTFM LEV 

OVERLAY (4,0) COMPUTE THE AERODYNAMICS CHARACTERISTICS * THF LEV 

SUM OF FRFE SHEET AND CORE FOPCES LEV 

OVERLAY <5»0) COMPUTFS THE NEW LOCATIONS OF THE LEADING-EDGE AND LEV 
TRAILTNG-EDGE VOPTICES LEV 

AS THE PROBLEM IS NONLINEAR* IT IS SOLVED BY ITERATION. ITERATION LEV 
IS PFPFORMEo OVER OVERLAYS (2,0) THRU (4,0) TO ORTAIN THE FINAL LEV 
CONVERGED SOLUTION. LEV 

LEV 

COMMON DUMMy1(3000) LEV 

COMMON /COfcFF/ CL»FZMINS(10) ,FHS(2, 10) ,RATIOS(?, 10) , LEV 

1CFCORE (2* 10) ,RATTOC (p, 10) LEV 

COMMON /NCTT/ NCT,NC0N,NBT,NC0R(15) ,KU1*NFsH(15) ,KUC,FL6(10) LEV 

COMMON /AERO/ NAFRO , MAXL , MAX W , ISPAN. ISF , I TRAKE , I SC LEV 

COMMON /TAPF/ ITFST.IGOOD.SFAC (10) ,KU3*NSTOP LEV 

COMMON /SHPTF/ NTE , YST { 1 5 ) . AGT ( 1 4 ) , ROT ( 1 4 ) , COT < 14 ) , DOT < 1 4 ) LEV 

COMMON /SHPLE/ NLE.YSL ( 15) . AQL ( 14) , BQL < 14) ,CQL ( 14) ,DOL < 14) LEV 

COMMON /LANDA/ FGMAl .FBDAl .FGMA,CLS LEV 

COMMON /LOCsp/ FTANTY ( 1 0 , IS) , FT ANTZ ( 1 0 * 1 5 ) ,CTANTY (40 ,?) , CTANTZ ( 40 , LEV 
12) LEV 

COMMON /IEFlr/ YI.EF(10*2) .XNF (10) ,YNF(10) ,ZNF(10) ,XLF(lO*4) , LEV 

1YLF(10,4) *SLP1 (10) ,SS,CS, ITERS, ZBDYV(?00) f 7PDY(200) LEV 

2,CURV(10) *ChnD(10) ,S7BDYV(200) LEV 


10 

20 

30 

40 

50 

60 

70 

BO 

90 

100 

110 

120 

130 

140 

150 

160 

170 

180 

190 

200 

210 

220 

230 

240 

250 

260 

270 

280 

290 

300 

310 

320 

330 

340 

350 

360 

370 

380 

390 

400 

410 
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COMMON /INFAV/ FYT (20) ,F7T{20) , FY I ( 40 ) , FZ I ( 4 0 ) , VX I ( 40 ) , VYI ( 40 ) »V7ILEV 
1 (40) ,FXT (20) .TFORCE (20) LEV 

COMMON /MDFAV/ FYP<40,2,2) ,FZP (40,2,2) LEV 

COMMON /LOC/ FU1 ,FU2.XEND,PXL (5) ,PXT (5) ,PYL (5) , ICL LEV 

COMMON /ALLI/ NSW,NSW1,NCW,NWNG»NCPTTL»MITER* I PUNCH LEV 

COMMON /ALLRA/ TTL (16) , ALPHA , S INA , COS A , SWPL.E , RETA , BETA2 * T ANPH1 , B2PLEV 
lHl,RS0n4P»04,C0N,PT,n4S02«CPAR,HALFB,AREA LEV 

COMMON /ALLRR/ AX (210) ,ZMIN,NELM(11) ,NNELM(12) ,IST LEV 

COMMON /ABC/ XE(10,40) ,YE(10,40) ,ZF(10,40) ,XXE(11,20) ,YYE(11,20) , LEV 
1ZZE (11 *20) *NMAX ,NNMAX,NCONTS LEV 

COMMON /OAHc/ DXE ( 1 0 , 4 0 ) , RYE ( 1 0 ♦ 40 ) , DZE ( 1 0 * 4 0 ) LEV 

/XPLOT / XMN,YMN,ZMN, XMX»YMX,ZMX LEV 

/CM/ ITER,Ll,l.2,L3,l_4,L5,L6,L7,L8 LEV 

/XSTn/ XRRR (25) ,NBRR LEV 


COMMON 

COMMON 

COMMON 

COMMON 


/JOIN/ ( <'!) ) , NnHR LEV 

COMMON /TIPVX/ XTlP(15f30) f YTIP(15,30) *7TIP(15,30) *NTLM(15) *NTMAX LEV 
COMMON /GENCF/ Ml (5) ,NW (2) , YBREAK (5) ,CH (90) ,SJ (31 ,3) ,MJW1 (2) , LEV 
xMJW2(2) tWlDTH{5) ,SWEFP(60) ,NTS,NC LEV 

COMMON/CAMB/ I C AM , I M ( l 0 ) , XT ( 1 0 » 2 1 ) , A AM ( 1 0 , 20 ) , RBM ( 1 0 , 20 ) ♦ 

1 CCM (10*20) *DPM( 10*20) * YT (10) »7BDX(200) *7BDXV(200) 

f* A I f AwTDi Aw iCLii rwfn ^ ft % 


10 CALL OVERLAY ( 5HI.EVSP *1*0) 

ITEST=9 
IGOOD= 10 
KU3=KU1*3 
NSTOP=0 
NSW1 =NTS 
NSW=NTS+1 
ITEP=ITEPS 
20 CONTINUE 

alp=alpha*ibo./pi 

AMACH=SQRT (1.-BFTA2) 

C WRITE FREE ELEMFNTS LOCATIONS 

WRITE (F,14o) TTL.ALP* AMACHtlTER 
IF (ITFR.GE.KU3) WRITE (ITEST*140) 
DO 30 I=1*MAXL 
K=NELM(I) 

I 

(XE(ItJ) *J=1,K) 

( YE ( I * J ) ,J=1,K) 

(7E ( I » J) ,J=1,K) 


ttl,alp,amach, jter 


WRITE 
WRITE 
WRITE 
WRITE 
WRITE 
DO 40 


( 6 , 180 ) 
( 6 , HQ) 
(6,170) 
(6, 170) 
( 6 , 210 ) 
1=1 *maxw 


LEV 

LEV 

LEV 

LEV 

LEV 

LEV 

LEV 

LEV 

LEV 

LEV 

LEV 

LEV 

LEV 

LEV 

LEV 

LEV 

LEV 

LEV 

LEV 

LEV 

LEV 

LEV 

LEV 

LEV 


420 

430 

440 

450 

460 

470 

480 

490 

500 

510 

520 

530 

540 

550 

560 

570 

580 

590 

600 

610 

620 

630 

640 

650 

660 

670 

680 

690 

700 

710 

720 

730 

740 

750 

760 

770 

780 

790 

800 

810 

820 


30 
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40 


50 


60 

70 


75 


K=NNELM(I) 

WRITE ( 6 * 1 Bo ) I 

WRITE ( 6 ♦ 1 7o ) ( XXE ( I » J ) » J= 1 » K ) 

WRITE (6*170) (YYE(I,J) ,J=l,K) 
WRITE (6.170) ( 77E ( I . J ) » J= 1 . K ) 

IE (ITER.LT.KU3) GO TO 70 
M=ITEST 

DO 50 I=1*MAXL 
K=NELM(I) 

WRITE (M » 1 8 0 ) I 

WRITE (M.170) (XE(I.J) .J=1,K) 

WRITE (M.170) (YE(I.J) .J=1.K) 

WRITE (M.170) (7E(I.J) *J=1,K) 

CONTINUE 

WRITE ( M . 2 1 0 ) 

DO 60 I=1»MAXW 
K=NNELM(T) 

WRITE (M.180) T 

WRITE (M.170) (XXE(I.J) ,J=1,K) 
WRITE (M.170) (YYE(I.J) ,J=1,K) 
WRITE ( M * 1 7 0 ) (77E ( I , J) , Jsl ,K) 

CONTINUE 
CONTINUE 

CALL OVERLAY (5HLEVRP.2.0) 

naero=o 


nsw=nts+i 

CALL OVERLAY ( 5HLFVSP ,3.0) 

NAERO=l 

NSW 1 =NTS 

NSW = NTS+ 1 

CALL OVFRLAy (5HLFVSP.4.0) 
IF (NSTOP.NE.l) GO TO 75 
REWIND ITtSl 

endfile itest 

ENDFILE HtST 
GO TO 90 

RATIOC(l.ITFP)=l. 

RATI0C(P.ITEP)=1. 

RATIOS(l *ITEP)=1. 

RATIOS (?♦ ITER) = 1 . 

NSW1=NTS 


LEV 830 
LEV 840 
LEV 850 
LEV 860 
LEV 870 
LEV 880 
LEV 890 
LEV 900 
LEV 910 
LEV 920 
LEV 930 
LEV 940 
LEV 950 
LEV 960 
LEV 970 
LEV 980 
LEV 990 
LEV1000 
LEV 1010 
LEV1020 
LEV 1 030 
LEVI 040 
LEVI 050 
LEVI 060 
LEV1070 
LEV 1080 
LEVI 090 
LEVI 100 
LEVI 110 
LEVI 1 ?0 
LEVI 130 
LEVI 135 
LEVI 140 
LEVI 145 
LEVI 150 
LEVI 155 
LEVI 160 
LEVI 170 
LEVI 180 
LEV1190 
LEV1200 
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NSW=NTS*1 

LEV1210 


IF (ITFR.LT.KU3) GO TO 80 

LEVI 220 


RATIOS ( 1 ♦ I TFR ) = APS ( ( FHS ( 1 , I TER ) -FHS ( 1 * I TER- 1 ) ) /FHS ( 1 « ITER-1 ) ) 

LEVI 230 


RAT IOC ( 1 ♦ ITER) = ABS ( (CFCORE ( 1 , I TER ) -CFCORE ( 1 , ITER-1 ) ) /CFCORF (1 

• ITFRLEV1240 


1 ) ) 

LEV1250 


IF (ITRAKL.MF.1 ) RATI0C(2,ITER)=A8S( (CFCORF (2, ITER) -CFCORE (2, 

ITER-LEV1260 


11) )/CFCORt (2*ITFR-1) ) 

LEV1270 


IF (ITPAKL.NF.I) RATIOS (2, ITER ) =ARS { (FHS (2* ITER) -FHS (2* ITER-1 ) ) /FHLEV1280 


1S(?.TTER-1> ) 

LEV 1 290 

80 

CONTINUE 

LEV 1300 


IF (ITER. EQ. MITER) GO TO 90 

LEV1310 


CALL OVERLAY ( 5HLEVSP » 5 » 0 ) 

LEVI 320 


ITE p =TTE p *l 

LEV1330 


IF (ITER.LE.MITFR) GO TO ?0 

LEVI 340 

90 

continue 

LEVI 350 


IF (IPUNCH.EG.O) GO TO 120 

LEV1360 

C 

PUNCH-OUT FREE ELEMENTS LOCATIONS AFTER LAST ITERATION 

LEV1370 


REWINn 4 

L E V 1 3 8 0 


PUNCH 200» (NELM(I) ,I=l»NSWl) 

LEVI 390 


DO 100 1=1 tNSWl 

LEV1400 


K=NELM(I) 

LEV1410 


PUNCH 190 ♦ (XE ( I * J) « J=1 « K ) 

LEV1420 


PUNCH 190* (YF (T,J) ,J=1,K) 

LEV1430 

100 

PUNCH 1 9 0 ♦ (ZE(T,J) ,J=1,K) 

LEV1440 


PUNCH 200 » (NNELM(I) ,I = 1,NSW) 

LEV1450 


DO 110 1=1 ♦NSW 

LEV1460 


K=NNELM(I) 

LEVI 470 


PUNCH 1 9 0 ♦ (XXF'(IfJ) ♦J=ltK) 

LEV14R0 


PUNCH 1 90 t (YYE(I.J) ,J=1.K) 

LEVI 490 

110 

PUNCH 1 90 ♦ (Z7F(I,J) ,J=1*K) 

LEV1500 

c 

FORMULATION OF SUMMARY SHEFT 

LEV1510 

120 

REWIND 7 

LEV1520 


WRITE (6,150) TTLfAL p fAMACH 

LEV1530 


MIT =MITFP* 1 

LEV1540 


IF (iTEPS.tO.O) KSS=1 

LEV1550 


IF (ITERS. to. 3) KSS=4 

LEV1560 


DO 130 I=KSs»MIT 

LEV1570 


J=I-1 

LEV1580 

c 



READ (7) GMsuM 

LEVI 600 


READ (7) CL » CM * CO t CTT 

LEV1610 
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IF (ITER. Lt. Kill) WRITE (6,160) J , CL , CM , CD , CTT ♦ GMSIIM LEV1630 

IF (ITFP.GT.KU1) WRITE (6,160) J , CL , CM , CD ,CTT , GMSIJM , SFAC ( J ) LEV1640 

130 CONTINUE LEV1650 



GO TO 

1° 

LEVI 660 

c 



LEVI 680 

140 

FORMAT 

(1H1,//, 16AS,/, IX, 1PHALPHA (DEG, )=,F6.3,14H MACH 

NUMBER=, F6LEV1690 


1.3,1 9H 

ITERATION NUMBER=, 12,//, IX, 21 HLEADING EDGE ELEMENTS,/. IX ,2LEV1700 


2 1 H *«»***# ****»«*« ■•nm- ) 

LEV 1710 

ISO 

FORMAT 

(1H1,//,1X,16A5,//,?X,1PHALPHA(DEG.)=,F6.3,14H 

MACH NUMBERLEV1720 


1 = » F 6 • 3 

,//»66H ITERATION CL ;CM CD CT 

GMSUM LEV1730 


2 SFAC 

»/»58H **#*,*«*« 

**LEV1740 


3**» 

BB*# ) 

LEV17S0 

160 

FORMAT 

( I 7 , 4X , 6F8 • 4 ) 

LEV1760 

170 

format 

( 1 H , 1 4F9 . 4 ) 

LEV1770 

1«0 

FORMAT 

( 1 H ,SH *bbb.X2,4H**»*) 

LEV1780 

190 

format 

(RF10.4) 

LEVI 790 

POO 

format 

( 1012) 

LEVI 800 

P10 

FORMAT 

(1H1,//,14H WAKE FLEMENTS,/, 14H #*#**###»#*»*) 

LEV 1 81 0 


END 


LEVI 820 


TAM 

TAN 

TAN 

TAN 


10 

20 

30 

40- 


FUNCTION T A N ( X ) 
TAN=5IN (X)/COS (X) 
RETURN 
END 


SUBROUTINE SKIPR (NT, NR) 

C SKIPS NR-RECOPDS OF TAPF NT 

DO 10 1=1 »Np 
10 READ (NT) 

RETURN 

END 


SKP 10 
SKP ?0 
SKP 30 
SKP 40 
SKP SO 
SKP 60- 


FUNCTION ARCOS (X) 

C CALCIJLATFS ARC-COSINE OF x 


ARC 10 
ARC 20 
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o o 


ARCOS=0. ARC 

IF (X.FG.l.) RFTUPN ARC 

IF (X.E0.(-1.)) GO TO 10 ARC 

XX = X/ (SORT ( 1 ,-X*X> ) ARC 

ARCOS=1.?707963-ATAN(XX> ARC 

RETURN ARC 

10 ARCOS=3.1 A159P6 ARC 

RETURN ARC 

END ARC 


SUBROUTINE OOTPRO ( A » B * RUM ) DOT 

C CALCULATES DOT-PRODUCT OF TWO VECTORS DOT 

DIMENSION A { 3 ) , R(3) DOT 

SUM=0. DOT 

DO 10 T = 1 * 3 DOT 

10 SUM=SUM+A ( I ) *p ( y ) DOT 

PETUPN DOT 

FND DOT 


SUBPOUTINt CRSPRn (A,B,C) CRS 

C CALCULATES CPOSS-PRODUCT OF TWO VECTORS CRS 

DIMENSION A ( 3 ) , B( 3 ), C(3) CRS 

C(1')=A(?)*B(3)-A(3)*B(S) CRS 

C(?)sA(3)*B(D-A(1)*R(3) CPS 

C(3)=A(1)*B(2)-A(?)*R(1) CRS 

RETURN CRS 

FND CPS 


SUBROUTINE VDTWNG ( C , THETP , XX * YY . 7Z ♦ XN , YN . XTE , YTF , CONS , CONI 1 , CON 1 3WNG 
lvCONJl f CON J?, CON J3t CONK 1 «C0NK2,C0NK3*C0NI ,CON J«CONK,SI«NSWlfNCM f NWWNG 


2NG) WNG 

EVALUATES INFLUENCE COEFFICIENTS FOR CALCULATION OF INDUCED WNG 

VELOCITY DUE TO WING ELEMENTS WNG 

COMMON /ALLI/ NSW WNG 

COMMON /ALLRB/ XXE(30) f YYF (30) * Z7E ( 30 ) WNG 


30 

40 

50 

60 

70 

BO 

90 

100 

110 - 


10 

20 

30 

40 

50 

60 

70 

BO- 


10 

20 

30 

40 

50 

60 

70 

BO- 


10 

20 

30 

40 

50 

60 

70 
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on 


C 


10 

c 


1 » AX ( 1 20 ) ♦ZWINUNFLM ( 1 1 ) ,NNELM(12) WNG 

COMMON /ABC/ PXF<10,40) ,PYF(10,40) ,PZE(10,40) *PXXE<11,20) , WN6 

1PYYE (11*20) »P?ZF (11*20) ,NMAX , NNMAX ,NCONTS WNG 

COMMON /NCTt/ NCT*NC0N,NRT,NC0R (15) ,KU1 »NFSH(15) ,KI|C WNG 

COMMON /GtNCF/ M 1 ( 5 ) , NW ( 2 ) , YBREAK (5 ) * CH ( 90 ) , 5 J ( 3 1 , 3 ) » M JW1 ( 2 ) » WNG 

1MJW2(2) ,WIDtH(5) ,SWFFP(6C) ,NTS,NC WNG 

COMMON /IOC/ FU1,FU2,XEND,PXL(5),PXT(5) ,PYL(F> WNG 

COMMON /AERO/ N AFRO , M AXL , MAXW » ISPAN, ISF , I TRAKF , ISC WNG 

COMMON /TIPVX/ XTIP(15*30) ,YTIP(15,30) ,ZTIP(15*30) «MTLM(15) WNG 

COMMON /X I Y 17 J / xI,YI,ZI WNG 

DIMENSION THETP(l), C(l), C0NS(1), XTE(l), YTF ( 1 ) , SI(1), C0NI1(1)WNG 
1, CONI 3 (1 ) * CON J 1(1)* CON J2 ( 1 ) » C0NJ3(1), CONKl(l), C0NK?{1), CONKWNG 
23(1), CONI ( 1 ) , CON J ( 1 ) , CONK ( 1 ) , XN(NWNG,2>, YN ( NWNG , 2 ) » B(3)» D(3WNG 
3) WNG 

DIMENSIONS OF F J 1 • F J2 , F J3- { 2#NSW ) SEE GEOM WNG 

DIMENSIONS OF F 1 2 » F I 3- { 2»NCPTTL ) ** SEE GFOM WNG 

DIMENSION F J 1 (40), FJ2<40), FJ3(40), FI2(418), Fl3(418) WNG 

XI=XX WNG 

YI=YY WNG 

ZI=Z7 WNG 

NCl=NWNG+NCw WNG 

NC2=NWNG-NCw WNG 

VELOCITY DUE TO ROUND ELFMFNTS WNG 

NSW 1 =NT? WNG 

DO 10 I=lfNswi WNG 

DO 10 J= 1 * Now WNG 

NP= ( 1 - 1 ) »NCw+J WNG 

CALL INFL2 ( XN (NP , 1 ), YN ( NP , 1 ), 0 XN { NP , 2 ), YN ( NP , 2 ), 0 ., R ) WNG 

A 1 = - Y N (NP, 1 ) WNG 

A2=-YN(NP,2) WNG 

CALL INFL2 ( XN ( NP , 1 ) , A 1 , 0 . , XN (NP , 2 ) ♦ A2 , 0 . , 0 ) WNG 

CONI (NP)=C0nS(I)«(P(1)-0(1) ) WNG 

CONJ(NP)=COns(I)»<B(?)-D(?) ) WNG 

CONK (NP)=COms (I )<MR <3)-D(3) ) WNG 

VELOCITY DUE TO TRAILING ELEMENTS ON THE WING SURFACE WNG 

DO 20 I=l»Nswi WNG 

DO 20 J= 1 ♦ NCW WNG 

NP=(I-l)*NCw+J WNG 

CALL INFI.2 (XN(NP,1) ,YN(NP,1) ,0.,XTE(I) ,YN(NP,1) ,0.,R) WNG 

F I? ( NP ) =B ( 2 ) WNG 

F 1 3 ( NP ) =R ( 3 ) WNG 


80 

90 

100 

110 

120 

130 

140 

150 

160 

170 

180 

190 

200 

210 

220 

230 

240 

250 

260 

270 

280 

290 

300 

310 

320 

330 

340 

350 

360 

370 

380 

390 

400 

410 

420 

430 

440 

450 

460 

470 

480 
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AYN=-YN (NP» 1 ) 

NO = NC 1 + NP 

CALL TNFL2 ( XN ( NP * 1 ) , AYN ♦ 0 . . XTE ( I ) , A YN , 0 . , R ) 

FI? (NO ) =P ( 2 ) 

FI3 (NO) =R (3) 

?0 CONTINIJF 

IF ( (PXT (NC*l )-Pxl (MC+1) ) ,FO.O.) GO TO 40 
DO 30 1=1 ♦ New 

NP1=NWN0*I 

NP2=NC1 +NP1 
FI? (NP1 ) =0 • 

FI? (MP?)=0. 

F 1 3 ( NP 1 ) = 0 . 

FI3 (NP?)=0. 

NN=MTLM(I)-1 
DO 30 J=l*Np 

CALL INFL? ( XTIP ( I * J) • YTIP { I , J) *ZTIP ( I • J) ,XTIP ( I , J* 1 ) * YTIP ( I , J* 
1 ZTIP ( I * J+ 1 ) * R ) 

FI?(NP1)=B(2) ♦FT?(NP1) 

FI3 (NP] ) =B (3) +FI3 (NP1 ) 

AY 1 =-YT TP ( I * J ) 

AY2=-YTIP < I , J*1 ) 

CALL INFL2 ( XT TP ( I ♦ J ) ♦ AY 1 , ZTIP ( I » J ) ♦ XT IP ( I , J+ 1 ) ♦ AY2»7TIP ( I » J+l ) 
FI? (NP?)=B (?) +FI? (NP?) 

FI3 (NP?) =B (3) +FI3 (NP?) 

30 CONTINUF 

GO TO 60 
40 CONTINUF 

DO 50 J= 1 ♦NCW 
NP 1 =NWNG+ J 
NP?=MC1+NP1 
N P s N C ? + J 

CALL INFL2 (XN(NP,?) ,YN(NP,?) ,0.,XTE(NSW) ,YN(NP*?) f 0.,R) 

F 1 2 ( NP 1 ) =B ( ? ) 

F 1 3 ( NP 1 ) =B ( 3 ) 

AYN=-YN (NP»2) 

CALL INFL2 ( XN (NP » ? ) , AYN , 0 . ♦ XTE (NSW) , AYN, 0 . * P ) 

F 1 2 ( NP? ) =B ( ? ) 

FI3 (NP?) =B (3) 

50 CONTINUE 

60 CONTINUF 


WNG 

400 

WNG 

500 

WNG 

510 

WNG 

5?0 

WNG 

530 

WNG 

540 

WNG 

550 

WNG 

560 

WNG 

570 

WNG 

580 

WNG 

590 

WNG 

600 

WNG 

610 

WNG 

620 

WNG 

630 

WNG 

640 

) » WNG 

650 

WNG 

660 

WNG 

670 

WNG 

680 

WNG 

690 

WNG 

700 

B) WNG 

710 

WNG 

720 

WNG 

730 

WNG 

740 

WNG 

750 

WNG 

760 

WNG 

770 

WNG 

780 

WNG 

790 

WNG 

800 

WNG 

810 

WNG 

fl?o 

WNG 

830 

WNG 

840 

WNG 

850 

WNG 

860 

WNG 

870 

WNG 

880 

WNG 

890 
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n ->i 


DO 70 I=1*NSW1 
DO 70 J= 1 ♦ NOW 
NP= ( 1-1 ) ttNCw+J 
I 1 =NP+NC 1 
I ?=MP+NCW 
I3=I1*NCW 

C0NJ2(NP) B C0MS(I)*(FI?(I1)-FI2{NP)*FI2(I2)-FI?(I3) ) 

0 CONK? (NP) =CONS ( I ) <U F T 3 < 1 1 ) -F I 3 ( NP ) *F 1 3 ( 1 2 ) -F 1 3 ( 1 3 ) ) 

VFLOCTTY UUF TO TRAILING FLFMFNTS BFYOND TRAILING FDGF 
N5W 1 =MA XL 

IF ( (PXT (NC>1 ) -pyL (NC+1 ) ) .EG.O.) GO TO 90 
DO 80 1 = 1 * N S V< 

FJ1 (I)=0. 

F J? ( I ) =0 . 

F J3 ( I ) =0 . 

FJ1 (I+NSW) =0. 

F J? ( I ♦NSW ) = 0 . 

FJ3 ( I+NSW) =0. 

80 CONTINUE 

NT =NSW 1 
GO TO 100 
9 0 NT = NSW 

100 CONTINUE 

DO 150 -T=2*NT 
KK=NNELN(I) 

DO 110 J= 1 * KK 
XXE (J)sP.yXt ( I . J) 

YYE(J)=PYYE(T,J) 

Z7F(J)=P7Zt(i,j) 

110 CONTINUE 
F J1 ( I ) =0 , 

FJ2 ( I ) =0 . 

FJ3 ( I ) =0 . 

IF (I.FQ.NCT) GO TO 130 
DO l?n J=2 ♦ KK 

CALL INFL2 (XXE(J-l) ,YYF(J-1) ,7ZE(J-1) ,XXF(J) t YYE { J) .77F(J) ,B) 
FJ1 (I)=FJl ( I ) +p ( i ) 

FJ?(I)=FJ2(I)+P(?) 

FJ3 (T)=FJ3(I) +p (3) 

1?0 CONTINUF 

CALL FIINA (XXF (KK) *YYE (KK) ,Z7E (KK) , P (1 ) (?) ,R (3) ) 


WNG 900 
WNG 910 
WNG 9?0 
WNG 930 
WNG 940 
WNG 950 
WNG 960 
WNG 970 
WNG 980 
WNG 990 
WNG1000 
WNG1010 
WNG1020 
WNG1030 
WNG1040 
WNG1050 
WNG1060 
WNG1070 
WNG1080 
WNG1090 
WNG1 1 00 
WNGl 110 
WNG1 120 
WNGl 130 
WNGl 140 
WNGl 150 
WNGl 160 
WNGl 170 
WNGl 180 
WNGl 190 
WNG1200 
WNG1210 
WNG1??0 
WNGl 230 
WNGl 240 
WNGl 250 
WNG 1 260 
WNG1270 
WNG 1 280 
WNGl 290 
WNG1300 
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FJ1 ( I ) =F J 1 (I)*P(1) 

FJ2(I)=FJ2(T)+B(?) 

F J3 ( I ) sF J3 ( I ) +R ( 3 ) 

130 CONTIMIlF 
IN=I+NFW 
FJl ( IN) =0 • 

FJ?(IN)=0. 

FJ3 ( IN) =0 • 

DO 140 J=2*KK 
AYT1=-YYE ( J-l ) 

AYT2=-YYE(J) 

CALL I NFL ^ (XXE (J-l ) ,AYT1 ,Z7E (J-l ) f XXE (J) f AYT2,ZZE(J) ,R) 
FJl (IN) =F J1 < IN) *R Cl) 

FJ2 ( IN) =FJ2 { IN) 4-R ( 2 ) 

FJ3(IN)=FJ3(IN)*R(3) 

1 A 0 CONTINIJF 

AYT?=-YYF (KK) 

CALL FUNA (XXE(KK) * AYT2, ZZE (KK) ,B(1) ,B(2) ,B(3) ) 

FJl (IN)=FJ1 (IN)*B(1) 

FJ2(TN)=FJ2(IN)+R(2) 

FJ3(IN)=FJ3(IN)+R(3) 

150 CONTINUE 
FJl ( 1) =0 ♦ 

F J2 ( 1 ) =0 . 

FJ3(1)=0. 

FJl (NSW+1 ) =0. 

FJ2 (NSW+l ) =0. 

FJ3(NSW*1>=0. 

DO 160 I=1»NSW1 
11=1*1 
12=1 *NSW 
13=12*1 

EFJ1=C0NS ( I ) * (FJl (1 2) -FJl (I) *FJ1 (ID -FJl (13) ) 

EF J?=CONS ( I ) * (F J? ( I? ) -F J2 ( I ) *F JP (ID -F J? (13)) 

EFJ3=CONS ( 1 ) * (F J3 ( 1 2 ) -FJ3 ( I ) *F J3 ( 1 1 ) -F J3 (13) ) 

DO 160 J=1*NCW 
NP= ( 1-1 ) »NCw+J 
CONI3 (NP) =tFJl 
C0NJ3(NP)=tFJ? 

160 C0NK3 (NP) =tFJ3 
C TOTAL INDUCED VELOCITY 


WNG1310 

WNG1320 

WNG1330 

WNG1340 

WNG1350 

WNG1360 

WNG1370 

VNG1300 

WNG1390 

WNG1400 

WNG1410 

WNG1420 

WNGJ430 

WNG1440 

WNG1450 

WNG1460 

WNG1470 

WNG1480 

WNG1490 

WNG1500 

WNG1510 

WNG1520 

WNG1530 

WNG1540 

WNG1550 

WNG1560 

WNG1570 

WNG15R0 

WNG1590 

WNG1600 

WNG1610 

WNG1620 

WNG1630 

WNG1640 

WNG1650 

WNG1660 

WNG1670 

WNG1680 

WNG1690 

WNG1700 

WNG1710 



n r> 


1 = 1 

DO 170 J= 1 ♦ NWNG 

COM I < J) = (CONI ( J) +C0NI3( J) ) *SI ( I ) 

CONJ ( J) = (CONJ ( J) +C0NJ2 ( J) 4C0MJ3 ( J) ) »SI ( I ) 
CONK (J) = (CONK ( J) +C0NK2 ( J) +CONK3 ( J) ) *SI ( I ) 
1 = 1 + 1 

IF (I.OT.NCw) 1=1 
170 CONTINUE 
RETURN 
END 


WNG] 720 
WNG1730 
WNG1740 
WNG1750 
WNG1760 
WNG1770 
WNG1780 
WNG1790 
WNG1800 
WNG1810- 


SURPOUTINE VDTFRF ( X ♦ Y ♦ 7 ♦ C I * C J , CK ,NS W 1 , BSGD4P ♦ XLE ♦ YLE ) 
EVALUATES INFLUENCE COEFFICIENTS FOR CALCULATION OF INDUCED 
VELOCITY DUE TO FREE ELEMENTS 

COMMON /ALLRR/ XE (40) ,YE (40) »ZE (40) ,XXE (30) *YYE (30) .77E (30) 

1 ,ZMIN,NEL M ( 1 1 ) ,NNELM(1?) 

COMMON /ABC/ PXF (10*40) ♦ PYF (10*4-0) • PZE (10.40) • PXXF (11*20) * 
1PYYE (11*20) , PZ7E ( 1 1 ,20) , NMAX , NNMAX ,NCONTS 
COMMON /NCTt/ NCT,NCON,NRT,NCOR (1 5) ♦ KU 1 . NFSH ( 1 5 ) »KUC,FLG(10) 
COMMON /AtRo/ NAFPO,MAXL.MAXW.ISPAN,ISF*lTRAKE,ISC 
COMMON /GENCF/ Ml (5) ,NW(2) , YRPEAK (5) , CH ( 9o ) * S J ( 3 1 ♦ 3 ) ,MJW1 (2) , 
1 MJW?(?) ,WIDtH(F) , SWEEP ( 60 ) ,NTS.NC 
COMMON /LOC/ FU1 ,FU2,XEND,PXL (5) ,PXT (5) ,PYL (5) 

DIMENSION P (5) .0 (5) ,P (5) 

COMMON /GM/ HEP 
COMMON / X I Y T Z I / Xl,Yl»7I 

DIMENSION Cid), OJ n ) , CK(1), XLE ( 1 ) * YLE ( 1 ) * V(3), VW(3) 

C DIMENSION OF VTOL- ( NSW 1 . 3 ) ** SEE GEOM 

DIMENSION VTDL (19,3) 

XI = X 
Y I =Y 
ZI=Z 

ncti=o 

10 CONTI NUF 

IF (ISPAN.EO.O) NSW1=NTS 
IF (iSPAN.tfl.l ) NSW1=MAXL 
DO 90 1 = 1 » N s W 1 
NCP=NCOR(D 
V(1)=0. 


FRE 

10 

FRE 

20 

FRE 

30 

FRE 

40 

FRE 

SO 

FRE 

60 

FRE 

70 

FRE 

80 

FRE 

QO 

FRE 

100 

FRE 

110 

FRE 

120 

FRE 

130 

FRE 

140 

FRE 

ISO 

FRE 

160 

FRE 

170 

FRE 

180 

FRE 

190 

FRE 

200 

FRE 

210 

FRE 

220 

FRE 

230 

FRE 

240 

FRE 

250 

FRE 

260 

FRE 

270 

FRE 

280 
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V ( 2 ) =0 . 

v <3) =n . 

FJ1=0. 

FJ2=0. 

FJ3=0. 

KK=NELM(I ) 

DO 20 J=1 »Kk 
XE(J)=PXF(1,J) 

YE ( J) =PYE ( I , J) 

7E(J)=PZE (I.J) 

20 CONTINIIF 

K=KK- 1 

C VELOCITY DUE TO FREF ELEMENTS AHEAD OF TPAILING-EDGE AND THOSE 

C OVER THE WING 

DO 40 J=1 

IF (ITEP.GT.KU1.AND.I.ER.1.AND.J.GE.3.AND.J.LT.NCR) GO TO 40 
IF (ITEP.GT.KU1.ANP.I.EO.M1 (1) . AND . J .GE . 3 . AND . J. LT .NCR . AND . ITR A) 
1NE.1) GO TO 40 

IF (ARS(X.E(J*1)-Xl> .LE.l.E-5) GO TO 40 

IF (I.EO.NCON.AND.J,GT.4.AND.YI.GT.O.AND.ITER.LF.KU1) GO TO 40 
IF (I.FO.NCon.AND.NRT.EO.O.AND. J.GT. 4.AND, J.LT.NCR.AND.Yl.GT.O.i 
l.ITER.GT.KUl ) GO TO 40 

IF (ITER. GT.KU1. AND. J.GE. NCR. AND. YI.GT.O. AND. NRT.EO.l) GO TO 40 
CALL INFL2 (XE (J) *YF (J) «7F ( J) »XE ( J*1 ) *YF (J*l) *7E(J+1) ,VVV) 

IF (ITER.LL.KU1) GO TO 30 
IF (J.LT.NCr) GO TO 30 
IF (NAFPO.tQ.O) GO TO 30 
IF (NCT1 .GT.O.AND. J.LT.NCP) GO TO 30 
C INDUCED VELOCITIES MODIFIED RY VISCOUS CORE EFFECT 

P(1)=XE(J)-XE(J*1) 

P(2)=YF. (J)”YE<J + 1) 

P(3)=7F(J)-7F(J+1) 

CALL APVLE (P.SIJM) 

IF (SUM.LE.l .F-5) GO TO 30 
P(l)=P(l)/SUM 
p (?) = p (?) /Sum 
p (3) =p (3) /sum 
Q ( 1 ) =X I-xE ( j+ 1 ) 

Q (?) =YI-YE ( J 4 1 ) 

0(3)a7'I-Zt(J*l) 

CALL CPSPRD (P.O.R) 


FRE 

?<?0 

FRF 

300 

FRE 

310 

FRE 

320 

FRE 

330 

FRE 

340 

FRE 

350 

FRF 

360 

FRE 

370 

FRF 

380 

FRE 

390 

FRE 

400 

FRE 

410 

FRE 

420 

FRF 

430 

FRE 

440 

i.FRF. 

450 

FRE 

460 

FRF 

470 

FRE 

480 

MDFRE 

490 

FRE 

500 

FRE 

510 

FRE 

520 

FRE 

530 

FRE 

540 

FRE 

550 

FRF 

560 

FRE 

570 

FRE 

580 

FRE 

590 

FRE 

600 

FRE 

610 

FRE 

620 

FRE 

630 

FRE 

640 

FRE 

650 

FRF 

660 

FRE 

670 

FRE 

680 

FRE 

690 
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CALL ARVLt (P.Ol) 


FRE 700 

L 1 = 1 


FRE 710 

L3=M1 (l )-l 


FRE 720 

IF (iTRAKt.NE.l .ANO.I.GF.Ml (1) ) L 1 = M 1 ( J ) 


FRE 730 

IF (ITRAKt.NE.l .AND. I. GE. Ml (1)) L3=M1(2) 


FRE 740 

P ( 1 ) =PXE (L3,4) -PXE (LI .4) 


FRE 750 

P (?) =PYF <L3 t 4) -PVE (LI .4) 


FRE 760 

P (3) =P7E(L3, 4 )-P7E (LI .4) 


FRE 770 

CALL ARVLF (P.SUM) 


FRE 780 

P(1)=P(1)/SUM 


FRE 790 

p ( ? ) = p ( 2 ) /Sum 


FRE 800 

p (3) =p (3) /sum 


FRE 810 

Q(1)=XE(J + 1)-PXE(L1.4) 


FRE 820 

0(2)=YF(J + 1)-PYF(L1,4) 


FRE 830 

Q (3) =7F (J*1)-P7E(L1»4) 


FRE 840 

CALL CRSPRO (P.O.P) 


FRE 850 

CALL APVLE- (P.D?) 


FRE R60 

D2=0. 75*02 


FRE 870 

RATI 0=0 1 /D2 


FRE 880 

IF (RATIO. Gt. 1 .) GO TO 30 


FRE 890 

VVV (2)=VVV (?) » (RATIO**?) 


FRE 900 

VVV (3) = WV (3) » (RATIO**?) 


FRE 910 

CONTINUE 


FRE 920 

V(1)=V(1) +VW(1) 


FRE 930 

V (2) = V (2) + VW (?) 


FRE 940 

V(3)=V(3) + VVV(3) 


FRE 950 

IF (ITFP.LL.KU1) GO TO 40 


FRE 960 

CORP=0. 


FRE 970 

IF (NAFRO.tQ.O) GO TO 40 


FRE 980 

IF (NRT.EQ.O) GO TO 40 


FRE 990 

IF (I.EQ.NSWI) GO TO 40 


FRE1000 

IF ( ITRAKE.MF • 1 , AND. I.EO.Ml ( 1 ) — 1 ) GO TO 40 


FRE 1010 

IF ( J.LE.4.0P.J.GF.NCP-1 ) GO TO 40 


FRE1020 

SIDE WASH CORRECTION FACTOR 


FRE1030 

CALL OROFR (I,J.PtO,R) 


FRE 1040 

CALL SWAHC (I,P.0,R.XIfYI,7l,C0RR) 


FRE1050 

V (?) =V (?) + COPP 


FRE1060 

CONTINUE 


FRE1070 

IF ( ITFR.Lt.KUl .AND. I . FO . NCON . AND . Y I . GT . 0 . ) 

GO TO 50 

FRE1080 

IF (ITEP.GT.KU] .AND.NRT.EQ.l .ANO.YI.GT.O.) 

GO TO 50 

FRE 1090 

CALL FIINA (XF (K + l ) .YF (K+l ) »ZF (K + l ) ,FJ1 .FJ?, 

FJ3) 

FPE1100 






50 VTDL(I*1)=V(1)+FJ1 

VTDL ( I , 2 ) = V (?) +F J? 

VTDL (I»3) = V(3)+FJ3 
FJ1=0. 

FJ?=0. 

FJ3=0. 

IF ( (PXT(NC + 1)-pxL(NC+1) ) .NF.O..AND.I.EO.NSW1) 60 TO PO 
11=1*1 

II=NNELM(I1) 

DO 60 J=l*ll 
XXF(J)=PXXE(ll,j) 

YYE ( J)=PYYE (II ♦ J) 

Z7E(J)=P7ZE(H,J) 

60 CONTINUE 

I p (Il.EO.NCT.ANO.YI.GT.O.) go to ao 
C VELOCITY due to wake elemfnts 

DO 70 j=?*ll 

CALL I NFL 2 (XXF(J-l) ,YYE(J-1) ,ZZE ( J-l ) , XXE { J) ,YYE ( J) ,77E ( J) , V) 
FJ1=FJ1+V(1) 

FJH=FJ?*V(2) 

FJ3=FJ3*V (3) 

70 CONTINUE 

CALL FUNA (XXE(II) *YYE(II) ,7ZE(II) ,V(1) *V(2) ,V(3) ) 

F J1=FJ1 + V ( 1 ) 

FJ2=FJ?*V(2) 

FJ3=FJ3*V (3) 

80 CONTINUE 

VTDL (1,1) =VTDL ( T , 1 ) -F J1 
VTDL(I,?)=VTDL(T,?)-FJ2 
VTDL(I,3)=VTDL(I,3)-FJ3 
90 CONTINUE 

Y I =-Y I 
NCT1=NCT1+1 

IF (NCTl.^T.i) GO TO 110 
DO 100 1 = 1* NSW 1 
Cl (I)=VTDL(I, 1) 

C J ( I ) =VTDL ( I , ? ) 

CK ( I ) =VTDL ( I f 3) 

100 CONTINUF 

GO TO 10 

C TOTAL INDUCED VELOCITY 


FRE 1110 
FRE1120 
FPF1130 
FRE 1140 
FRE 1150 
FRE 1160 
FRE 1170 
FRF 1180 
FRE 1190 
FRE1P00 
FRE1210 
FRE1220 
FRE1P30 
FRE1240 
FRE1P50 
FRE1260 
FRE1P70 
FRE1280 
FRE1290 
FRE1300 
FRE 1310 
FRE 1 320 
FRE1330 
FRE 1 340 
FRE1350 
FRE1360 
FRE] 370 
FRE 1380 
FRE1390 
FRE1400 
FRE1410 
FRE1420 
FRE 1 430 
FRE1440 
FRE1450 
FRF1460 
FRE1470 
FRF14R0 
FRF 1 490 
FRE1500 
FRE1510 
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110 DO 120 I=1*NSW1 FRE1520 

Cl (I)=RS0D4 p*(CT fl) *VTDL(I*1) ) FRE1530 

CJ(T)=PSQD4P'»(CJ(I)-VTDL(I*2) ) FRE1540 

120 CK ( I ) =RSRD4p* (CK(T)+VTDL(I»3) ) FRF1550 

RETURN FRE1560 

END FRE1570- 


SUBROUTINE NORMAL ( X » Y * 7 * UN ) 

DIMENSION X(5).Y(5)*7(5)*A(3)»B(3).C(3),UN(3) 
A(1)=X(3)-X(1) 

A(2)=Y(3)-V(D 
A (3) =7 (3)-Z (1) 

B(1)=X(4)-X(?) 

B (?) =Y (4) -Y (?) 

B ( 3 ) =7 ( 4 ) -Z ( 2 ) 

CALL CPSPRD ( R f A * C ) 

CALL APVLE <C*APSN) 

IF (ARSN.Lt. l.E-5) 00 TO 10 

UN{1)=C(1)/APSN 

UN(?)=C(2>/ABSN 

UN ( 3 ) =C. ( 3 ) / ABSN 

RETUPN 

10 UN ( 1 ) =0 • 

UN ( 2 > =0 • 

UN ( 3 ) =0 • 

RETURN 

END 


SUBROUTINE SWAHC (I.X»Y*Z*Xl*YI*7I*C0PR) SWH 10 

DIMENSION X (5) *Y (S) *Z (5) * A (3) *B (3) *C (3) *UN (3) *FLRC (4) SWH ?o 

COMMON /NCTy/ NCT,NCON,NPT,NCOR ( IS) tKUl *NFSH (15) .KUCfFLG(lO) SWH 30 

C FIND THF FOUR COPNFP POINTS AFTER PLANE TRANSFORMATION SWH 40 

CALL NORMAL (X*Y*7*UN) SWH SO 

XBAR=n.2S*(X(l)+X(2nX(3)+X(4) ) SWH 60 

YBAP = 0.25*(Y(1) *Y(?) *Y(3) ♦Y(4)-) SWH 70 

ZBAR=0.25*(7(l)+7(2)+7(3)+7(4)) SWH 80 

DSD= APS (UN( ) )* (XBAR-X ( 1 ) ) + I.JN (?) * (YPAR-Y ( 1 ) ) +UN ( 3) * ( ZPAR-Z ( 1 ) ) > SWH 90 


NOR 10 
NOR 20 
NOR 30 
NOR 40 
NOR 50 
NOR 60 
NOR 70 
NOR 80 
NOR 90 
NOR 100 
NOR 110 
NOR 120 
NOR 130 
NOR 140 
NOR 150 
NOP 160 
NOR 170 
NOR 180 
NOR 190 
NOR 200- 
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n r> 


V 




xo=xi+vns*UN(i) 
YO=YI+VOS*Un<?) 
Z0=ZI+VDS*Un(3) 

CALL IMOUT (X,Y,XO,YO,NSIDE) 
IF (NSTPF.Nf. 1) ro TO 30 
FIND THE DISTANCF RETWFFN THE 
PANEL 

DO 20 K=l»4 
B(l)=XO-X (K) 

R(?)=YO-Y(K) 

B(3)=70-X(K) 

A(1)=X(K+1)-X(K) 

A (2) =Y (K+l )-Y (K) 

A (3) =Z (K+l ) -7 (K) 

CALL APVLt (A, DPP) 

A ( 1 ) =A ( 1 ) /OpD 
A ( 2 ) =A ( 2 ) /Dpo 
A (3) =A (3) /Dpo 
CALL CPSPRD (P.A.C) 

CALL APVLt ( C * DP ) 

FLPC(K)=DP 
20 CONTINUE 

FLPC<1)=-ABS(FLPC(1) ) 
FY=FLPC(4)/F(FLPC(4) ,0.*0.,0. 


SWH 100 
SWH 110 
SWH 120 
SWH 130 
SWH 140 
SWH 150 
SWH 160 
SWH 170 
SWH 180 
SWH 190 
SWH 200 
SWH 210 
SWH 220 
SWH 230 
SWH 240 
SWH 250 
SWH 260 
SWH 270 
SWH 2R0 
SWH 290 
SWH 300 
SWH 310 
SWH 320 
SWH 330 
SWH 340 
SWH 350 
SWH 360 
SWH 370 
SWH 380 
SWH 390 
SWH 400 
SWH 410 
SWH 420 
SWH 430 
SWH 440 
SWH 450 
SWH 460 
SWH 470 
SWH 480 
SWH 490 

VDS ) +FLPC ( 2 ) /F ( FLPC { ? ) , 0 . ♦ 0 . , 0 . t VDS) SWH 500 


IF (DSD.EU.o.) GO TO 30 
C NEW PLANAK COPNFP POINTS 

DO 10 K= 1 * 4 

X (K 1 -X (*) + (-1 )•«(«♦ 1)»UN(1)«DSD 

Y ( K ) =Y ( K ) ♦ ( ~ 1 ) ** (K * 1 ) *UN ( 2 ) *DSD 
7 {K)«7(K) ♦ (-1 ) **(K*1) *UN(3j *DSD 
10 CONTINUE 

CALL NORMAL (X,Y,7,lJN) 

IF ( UN ( 1 ) • tQ . 0 . . AND .UN (2) , EG . 0 , * AND «UN (3 ) # EQ. 0 • ) GO TO 30 
X (5)=X (1 ) 

Y (5) =Y ( 1 ) 

7 (S) =7 ( 1 ) 

C FIND THF SHnpTFST DISTANCE FROM THE CONTROL POINT TO THE PLANE 

A ( 1 ) =X ( 1 ) “X I 
A ( 2 ) =Y ( 1 ) “Y I 
A (3) =7 ( 1 ) “ZT 
CALL OOTPRD (A, UN, VDS) 


INTERSECTION POINT TO ALL EDGES OF 
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CY1=FL PC ( 1 ) 


SWH 

510 

CY?=Fl.PC(3) 


SWH 

5?0 

C71=vds 


SWH 

530 

cz2=vos 


SWH 

540 

IF (APS (CZ1) .LE.l .E-5.0R.APS (C72) .LE.l.E-5) 

GO TO 30 

SWH 

550 

G?=CY] 


SWH 

560 

G3=CY2*»2*Cz2**2 


SWH 

570 

G4=C72/03+Czi/G? 


SWH 

580 

AVGG=(FLG(I)+FLG(I+ 1 ) )/ 2 . 


SWH 

500 

G5=-0,5*FY*G4»AVGG*1 . 1 


SWH 

600 

G6=C72/ARS (C72) #4TAN (CY2/APS (C72) ) 


SWH 

610 

G7=C71/ARS (C71 ) #ATAN (CY1/ARS (C71 ) ) 


SWH 

6?0 

G 8 =FY* (G6-G7) » A VGG/ (Ft. PC (3) -FLPC ( 1 ) ) 


SWH 

630 

CORR= (G5+G8) /AVGG 


SWH 

640 

FIND THE SIDE WASH CORRECTION FACTOR IN THE 

LOCAL PANEL Y 

SWH 

650 

A (1 ) =X (3) -X (?) 


SWH 

660 

A ( 2 ) = Y ( 3 ) “Y (?) 


SWH 

670 

A (3) =7 (3) ”Z (?) 


SWH 

680 

CALL ARVL.E (A,TOL) 


SWH 

600 

A ( 1 ) =A (l)/TOL 


SWH 

700 

A ( 2 ) -A ( 2 ) /T OL 


SWH 

710 

A(3)=A(3)/TOL 


SWH 

720 

B(1)=X (4)-X(l) 


SWH 

730 

B(2)=Y(4)-Y(1) 


SWH 

740 

B(3)=7(4)-Z(l) 


SWH 

750 

CALL ABVLfc ( R * TOL ) 


SWH 

760 

P(l)=R(l)/TOL 


SWH 

770 

B (?) =R ( 2 ) /TOL 


SWH 

780 

P(3)=R(3)/TOL 


SWH 

700 

CC= (A (?) +B (?) ) /?. 


SWH 

800 

CORR=COPR <t Cc 


SWH 

BIO 

GO TO 40 


SWH 

B 20 

CORR= 0 . 


SWH 

R30 

continuf 


SWH 

840 

RETURN 


SWH 

850 

END 


SWH 

860- 


SUBROUTINE ABVLF (A,ARSUM) 


ABV 

10 

DIMENSION A ( 3 ) 


ABV 

20 



k. 



130 



ABSUM=SQPT (A(i)**24.A{2)**? + A(3)**2) 

RETURN 

END 


ABV 

ABV 

ARV 


SURPOUTlN’t INOUT ( X , Y * XO ♦ YO ♦ NS IDE ) INO 

TO CHECK THF CONTROL PT By VECTOR ANALYSIS INO 

DIMENSION x (5) ♦ Y (5 ) INO 

X ( 5 ) =X ( 1 ) INO 

Y ( 5 ) =Y ( 1 ) INO 

NS I DE= 1 INO 

DO 10 1=1*4 INO 

VECT= { XO-X ( I ) )*(Y(I*1)-Y(I))-(X(I*1)-X(I) )»<YO-Y(I) ) INO 

IF (VECT.LT.o.) NSIDE=0 INO 

continue ino 

RETIJPN INO 

END INO 


SUPPOUTINE ORDER (I»J*X*Y»7) ODR 
DIMENSION X (5) ,Y (5) ,Z (5) ODR 
COMMON /ABC/ PXE(10 f 40) *PYE(10, 40) ,PZE(10, 40) ODR 
X (1)=PXF(I*J + 1) ODR 
Y(1)=PYE(1*J*1) ODR 
Z(1)=P'7E(I*J*1) ODR 
X ( 5 ) =X ( 1 ) ODR 
Y(5)=Y(1) ODR 
Z<S)=7(1) ODR 
X (2) =PXE ( I * J) ODR 
Y ( 2 ) =PYE ( I * J ) ODP 
Z (2)=P7F(1*J) ODR 
X (3)=PXE (1*1, J) ODR 
Y { 3 ) =PYE ( I + 1 * J ) ODR 
Z ( 3 ) =P7F ( I ♦ 1 ♦ J ) ODR 
X (4 ) =PXE ( I ♦ 1 » J+ 1 ) ODR 
Y (4 ) =PYE ( I ♦ 1 1 J* 1 ) ODR 
Z(4)=P7F(I+1,J*1) ODR 
RETURN ODP 
END ODP 


30 

40 

so- 


lo 

20 

30 

40 

50 

60 

70 

RO 

90 

100 

110 

120 - 


10 

20 

30 

40 

SO 

60 

70 

80 

90 

100 

110 

120 

130 

140 

ISO 

160 

170 

180 

190 

200 - 



o r> 


FUNCTION E (Xl»X,Yl»Y,Zl»7) 

FUN 

10 

COMMON /ALLPA/ TTL (16) .ALPHA, SINA,COSA,SWPLF, BETA, BETA2 

FUN 

20 

XX=X 1-X 

FUN 

30 

YY=Y 1 -Y 

FUN 

40 

Z7=7 1 -7 

FUN 

50 

F=SGRT (XX**2+PFTA2«YY*»7+RFTA2»ZZ#*?) 

FUN 

60 

RETURN 

FUN 

70 

END 

FUN 

BO- 


SUPROIJT I NE CAMRFP ( NPPCY . C , XCP , YCP , XN , YN , XLM , YLM , X AVWNO , YA VWNG ) 
DIMENSION XN(190,2) ,YN(190,2) * C ( 1 9 ) , XLM (1 Q ) ,YLM(19) 

DIMENSION XCP(209) ,VCP<209) , XAVWNG ( 190 ) ♦YAVWNG(190) 

COMMON /ALLRB/ AX(210) ,7MIN,NELM(11) »NNFLM(12) ,IST 
COMMON /ALLl/ NSW,NSW1 ,MCW,NWNG 

COMMON /LEFLP/ YLEF ( 1 0 • 2 ) , XNF ( 1 0 ) ♦ YNF (1 0 ) , 7NF ( 1 0 ) ,XLF ( 1 0 • 4 ) * 

1 YLF (10*4) » S|_P 1 (10) ,SS,CS,ITERS,ZBDYV(200) ,7BDY(200> 

2»CURV(10) » CHND (10) *SZBDYV(200) 

COMMON/C AMB/ ICAM,TM(10) , XT ( 1 0 . 21 ) , A AM ( 1 0 , 20 ) ,BBM(10,20) . 

1CCM (10,20) *DDM( 10.20) ,YT(10) »ZBDX(200) ,ZRDXV(200) 

NPPCY = 0 , FINE GRIDS 
NPRCY = I ♦ 2 . COAPSF GRIDS. 

IF (NPRCY. EO. 2) GO TO 90 

IF (NPRCY. Eq.1) .00 TO 10 

IF (NPRCY. EO.O) GO TO 60 

10 CONTINUE 

C FIND THE CANPEP SLOPE AT CONTROL POINTS 

DO 30 1 = 1 » NSW 1 
DO 30 J= 1 * New 
I J = ( I — 1 ) * N L W + J 
XC=(XCP(IJj-XLM(I) )/C(I) 

IF (ICAM.E0.3) XC=XCP(IJ) 

IF ( I CA M • EQ . 2 ) GO TO 20 

YK 1 = ( YCP (I*J)— YN(TJ,1) ) / ( YN ( I J» 2 ) — YN ( I J» 1 ) ) 

XK1=XM(IJ»1) + (XN(IJ,2)-XN(IJ,1) ) *YK1 

Xl=(XKl-XLM ( i, ,/r (I) 

CALL 7CP (XC,YCP(IJ) ,D7PX,ICAM,X1 ,1 ,C.D7DY) 


CBR 1 0 
CRR 20 
CBR 30 
CBR 40 
CBR 50 
CRR 60 
CBR 70 
CBR BO 
CBR 90 
CBR 100 
CBR 110 
CBR 120 
CBR 130 
CBR 140 
CPR 150 
CBR 160 
CBR 170 
CBR 1B0 
CBR 190 
CBR 200 
CBR 210 
CBR 220 
CBR 230 
CBR 240 
CBR 250 
CBR 260 
CBR 270 
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o o> 


V 


ZROX (TvH =UZDX 
ZRDY(TJ)=UZpy 
GO TO 30 
?0 YC=YLM ( I ) 

XC=XCP(IJ) 

CALL 7C0X (XC«YC*D70X»07PY) 

ZRDX (I J) =OZPx 
ZBDY (I J) =OZDY 
30 continue 

C FIND THE CAMPFP SLOPE AT LEADING-EDGE CONTROL POINTS 

DO SO I=1*NSW1 
IJ=NWNG+I 
XC=0 . 

IF (ICAM.EQ.?) GO TO 40 
IF (ICAM.tO.3) XC=XLM(I) 

Z1 = XC 

CALL 7CP (XC,YLM(I) ,n?OX,ICAM f Zlf 1,C,D7DY) 
ZBDX(IJ)=DZDX 
ZB0Y(IJ)=0ZDY 
GO TO SO 
40 XC=XLM(I) 

YC=YLM ( I ) 

CALL 7CDX (XC,YC,D70X,D7DY) 

ZBDX (IJ)=DZOX 
ZRDY(IJ)=DZDY 
so continue 

RETURN 

0 CONTINUE 

FIND CAMPER SLOPF AT ROUND FLEMENTS 
DO BO I=l»Nswi 
DO BO J=l»NfW 
IJ=(I_l)*NCw*J 
XC=(XAVVNG(IJ)-XLM(I) )/C(I) 

IF (ICA m .EQ.3) XCsXAVWNG(IJ) 

IF (ICAM.tQ.?) GO TO 70 
Z1 = XC 

CALI 7CR <XC,YAVWNG(TJ) , D7DX * I C AM , Z 1 * 1 , C ♦ D7DY ) 
ZBDXV(IJ)=D70X 
ZBDYV(IJ)=D7nY 
GO TO BO 
70 YC=YLM(I) 


CBR ?B0 
CBR ?90 
CBR 300 
CBR 310 
CBR 3?0 
CBR 330 
CBR 340 
CBR 350 
CBR 360 
CBR 370 
CBR 3B0 
CBR 390 
CBR 400 
CBR 410 
CBR 4?0 
CBR 430 
CBR 440 
CBR 450 
CBR 460 
CBR 470 
CBR 480 
CBR 490 
CBR 500 
CBR 510 
CBR 5?0 
CBR 530 
CBR 540 
CBR 550 
CBR 560 
CBR 570 
CBR 5R0 
CBR 590 
CBR 600 
CBR 610 
CBR 6?0 
CBR 630 
CBR 640 
CBR 650 
CBR 660 
CBR 670 
CBR 680 
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noon 


80 

90 

C 


100 


110 


XC=XAVWNG ( I J) 

CBR 

690 

CALL 7CDX (XC.YC,D7DX*D7PY) 

CBR 

700 

ZBDXV ( IJ) =U70X 

CBR 

710 

ZBDYV ( T J) =D7DY 

CBR 

7?0 

CONTINUF 

CBR 

730 

RETURN 

CBR 

740 

CONTINUF 

CBR 

750 

FIND CAMBER SLOPE AT ROUND ELEMENTS 

CBR 

760 

DO 110 1=1* NSW 1 

CBR 

770 

DO 110 J= 1 » NCW 

CBR 

780 

IJ=(I_l)*NCw+J 

CBR 

790 

XC= (XAVWNG(IJ)-xLM(I) )/C(I) 

CBR 

BOO 

IF (ICAM.EQ.S) XC = X AVWNG ( I J ) 

CBR 

BIO 

IF (ICAM.EQ.?) go TO 100 

CBR 

820 

Z1 = XC 

CBR 

830 

CALL 7CP (XC.YAVWNO(IJ) ,DZDX*ICAM f 71«l»C,D7DY) 

CBR 

R40 

SZBOYV ( I J ) = 07DY 

CBR 

850 

GO TO 110 

CBR 

860 

YC=YLM(I) 

CBR 

870 

XC=XAVWNG ( I J) 

CBR 

8R0 

CALL 7CDX (XC,YC.D7DX»D7DY) 

CBR 

890 

SZBOYV ( I J) =070Y 

CBR 

900 

CONTINUE 

CBR 

910 

RETURN 

CBR 

9?0 

END 

CBR 

930- 


SUBROUTINE 7CDX (X ,Y»7CX »07DY) 



ZCD 

10 

DEFINE THE CAMRER SLOPE * D70X» AT ANy 

X. Y 

LOCATION 

IN CLOSE FORM * 7CD 

20 

WHERE X AND DIMENSIONAL COORDINATES REFERED 

TO C.G. 

ZCD 

30 

CONICAL CAMRER FOP A CONFIGURATION IN 

NASA 

CR-P002 

ZCD 

40 




7CD 

50 

YB=0.?31303»(1,6*X) 



7CD 

60 

ZCX = 0 . 



ZCD 

70 

DZPY=0. 



ZCD 

80 

IF (Y.LT.YB) Y =0. 



7CD 

90 

IF (Y.LT.YB) RETURN 



7CD 

100 

X X = X 



ZCD 

no 

P = 0.06B?1207* (1 ,6 + XX) 



7CD 

120 

ZC=-P+SGPT(P*R-(Y-YP)**?) 



ZCD 

130 
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V 


zcx= (0.231303# (Y-YP) -0 . 06 fl 2 l 2*7C ) / (7C+P) 
D7DY=- (Y-YB) / (7T+R) 

Y=7C 

C Y IS RETURNED A S THE 7 COORDINATE. 

RETURN 

END 


SURPOUTINE 7CP ( X . Y ♦ D70X » I CAN ♦ X 1 . KP ♦ CHORD , 07DY ) 

COMMON /ALLrR/ AX(?10) ♦7MIN,NELM(11) ,NNFLM(1?) .1ST 
COMMON /LEFlp/ YLFF <1 0 ♦ 2 ) . XNF ( 1 0 ) ♦ YNF ( 1 0 ) , 7NF ( 1 0 ) , XLF ( 1 0 , 4 ) » 
1YLFU0.4) *S|_P1 (10) . SS # CS, ITERS ♦ZBDYV( 200) ,7FDY(?00) 
2»CURV(10) ♦CHND(IO) 

XE = X 1 
KK=DZDX 
RR-D7DY 
DZDX=0. 

D7DY=0. 

IF (ICAM.EO.l) On TO SO 
IF (ICAM.Nh.3) GO TO 60 
X 1 = 0 . 

1=1 

10 IF (Y.GE.YLEF(I.l) .AND.Y.LE.YLEF (T.2) ) GO TO 20 
1 = 1 + 1 

IF (I.GF.IST) GO TO 60 
IF (I.FO.ll) GO TO 60 
GO TO 10 

20 YB=YLF(I,1)*SLP1 ( I ) * C X-XLF (1*1) ) 

KCON=0 

IF (KK.NE. 100) GO TO 30 
XB=XLF(I,1) 

IF (SLP1 (I) .GT.1.E-1R) XP = XLF (1*1) ♦ ( Y-YlF (1*1) )/SLPl (T) 
DX=RP/ (XP.-XE) 

IF (APS(l.-DX) .LE.0.1) KCON=l 
IF (KCON.EQ.d GO TO 40 
30 CONTI NllF 

IF (Y.LF.YB) RETURN 

40 continue 

TFST1=PNLEF (X . Yt XLF.YLF, I , i , 2) 

IF (ARS(TtSTl) .LT.l ,F-B.AMD.Y.GE.YLF(I,1) ) TFST1=1.E-R 


7CD 

140 

7CD 

ISO 

ZCD 

160 

7CD 

170 

ZCD 

180 

ZCD 

190- 


7CR 

10 

7CR 

20 

7CR 

30 

7CR 

40 

7CR 

SO 

7CR 

60 

7CR 

70 

7CR 

80 

ZCR 

90 

7CR 

100 

ZCR 

110 

ZCR 

120 

ZCR 

130 

ZCR 

140 

ZCR 

150 

7CR 

160 

ZCR 

170 

ZCR 

180 

7CP 

190 

ZCR 

200 

7CR 

210 

ZCR 

220 

ZCR 

230 

7CR 

240 

ZCR 

250 

ZCR 

260 

ZCR 

270 

ZCR 

280 

ZCR 

290 

ZCR 

300 

ZCR 

310 

ZCR 

320 
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IF (TFST1 .LT.O. ) RETURN 7CR 

TEST?=PNLEE(X,Y.XLF f YLF,I,4,3) ZCR 

IF (APS<TEST2) .LT.1.E-8,AN0.Y.LE.YLF(I,3) ) TEST2=1.E-R 7CR 

IF (TFSTP.GT.O. ) RETURN 7CR 

D7DX=-XMF(1)/7NF(I) 7CR 

D70Y=-YNF (1)/ZNF(I) 7CR 

D=-XNF(I) *XLF (I ,1)-YNF(I) *YLF (I, 1> 7CR 

Xl=-(n+XNE (I)*X*YNF(I)»Y)/7NF(I) 7CR 

IF (KCON.EQ.O) GO TO 60 7CR 

DZnx=0.5«DZOX 7 CR 

D7DY=0.5»DZDY ZCR 

X1 = 0. ZCR 

GO TO 60 ZCR 

50 CALL 7CAM ( x , Y , 7R t X 1 , KP , CHORD ) ZCR 

60 RETURN ZCR 

END ZCR 


FUNCTION PNLFF(X,Y,XLF,YLF,ItJ*K) PNL 

DIMENSION XLF(10«A) .YLF(10«4) PNL 

PNLEF=(X-XLF(I,J) )W(YLF(I f K)-YLF(I, J) )-(XLF(I,K)-XLF(I*vJ) )*{Y-YLF(PWL 
lit J) ) PNL 

RETURN PNL 

END PNL 


SUBROUTINE 7CAM ( X t Y , ?R ♦ X 1 , KP, CHORD ) 7CM 

DIMENSION ZZ (?) .70 (?) *C(15) ZCM 

COMMON /ALLrP/ AX (210) tZMINtBX (23) , 1ST ZCM 

COMMON/CAMB/ ICAM , IM ( 1 0 ) , XT ( 1 0 ♦ 21 ) , A AM ( 1 0 , 20 ) t RBM < 1 0 t 20 > t 7 CM 

1 CCM ( 1 o 1 20 ) tDDM (10,20) tYT(10) tZPDX{?0 0) tZBDXV(?00) 7CM 

COMMON /LEFLP/ YLEF (10t2) *XNF(10) ,YNF(10) iZNF(10) t XLF(lO,4) t ZCM 

1 YLF ( 1 0 1 4 ) »SLP1 (10) tSS«CS,ITFRS.ZBDYV(200) ,ZRDY(200> ZCM 

2,CURV(10) tCHND(lO) ZCM 

I =KP ZCM 

ZR=0. ZCM 

10 IF (Y.GT.YT (I ) .ANO.Y.LT.YT ( 1*1 ) > GO TO 30 ZCM 

1*1*1 7CM 

IF (I.GT.IST) GO to 20 ZCM 


330 

340 

350 

360 

370 

380 

390 

400 

410 

420 

430 

440 

450 

460 

470 

480- 


10 

20 

30 

40 

50 

60- 


10 
20 
30 
40 
50 
60 
70 
80 
90 
1 00 
110 
120 
130 
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GO TO 10 

?n if (Y.LT.YT(i) ) i=i 

IF (Y.GT.YT (TST) ) I=IST-1 
30 I K= 1 

XF=0. 

ICVsClIPV ( I ) 

IF (ICV.EQ.l) GO TO AO 
XF1 = XT (T »^)*CHNO(I) 

IF (ARS(OL>H(l f 1, ) .LF. 0.0001) XF1 =XT ( I * 1 ) *CHND ( I ) 

XF?=XT (1+1,2) #CHND { I + 1 ) 

YF= ( Y-YT ( I ) ) / ( YT ( I ♦ 1 ) -YT ( I ) ) 

XF= ( XF 1 * (XF?_XF1 ) *YF) /CHORD 
IF (Xl.GT.XF) GO TO 40 
FAC=CHND < I + l ) 

IF (FAC. Lt.o . 0001 ) FAC=1. 

DFLTA=OOH (1,1) *CHND (!)•*•( DDM (1 + 1,1) #FAC-DDm (1,1) *CHND ( T ) ) *YF 
DELTA=DELTA /CHORD 

IF (IM(I).GT.?) 70(1)=DDM(I,2)*CHND(I) 

IF (IM(I).LF.?) 70(1)=(CCM(I,1) +DDM(I,1) )»CHND(I) 

IF (IM(I+1) ,GT.?) 7Q(2)=DPM(I+1,2)#FAC 

IF ( I M ( I ♦ 1 ) • l. E • 2 ) 70(?) = (CCH(I + 1,1) +DDM(I + i,l) )#FAC 

DK= (ZO ( 1 ) + ( 70 (? ) -70 ( 1 ) ) *YF ) /CHORD 

dei.ta=dflta-pk 

GO TO 110 
40 K= 1 

IF (ICV.EQ.O) GO TO 150 

50 IF (X.GF.XT (I,K) . AND . X . LT . XT ( I , K+ 1 ) ) GO TO 60 
K=K+ 1 

IF (K.GF.IM(I) ) GO TO 70 
GO TO 50 

60 SM=X-XT(I»K) 

77 (IK).=3.*Aam(I.K)*SM»SM + ?,*BBM(I,K)*SM + CCM(I,K) 

GO TO 90 

70 IF < X .LT . XT (1,1) ) GO TO 80 
K=IM(I)-1 
GO TO 60 
80 K= 1 

GO TO 60 

90 IF (IK.E0.2) GO TO 100 

1 = 1 + 1 
IK = TK + 1 


7CM 140 
7CM 150 
7CM 160 
ZCM 170 
7CM 180 
ZCM 190 
7CM 200 
7CM 210 
7CM 220 
ZCM 230 
ZCM 240 
ZCM 250 
7CM 260 
ZCM 270 
ZCM 280 
ZCM 290 
ZCM 300 
ZCM 310 
7CM 3?0 
ZCM 330 
ZCM 340 
ZCM 350 
ZCM 360 
ZCM 370 
ZCM 380 
ZCM 390 
ZCM 400 
ZCM 410 
ZCM 420 
ZCM 430 
ZCM 440 
ZCM 450 
ZCM 460 
ZCM 470 
ZCM 480 
ZCM 490 
ZCM 500 
ZCM 510 
ZCM 520 
ZCM 530 
ZCM 540 
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r> o 


100 


110 

l?n 

130 

140 

150 


GO TO 40 

ZCM 

550 

YF=(Y-YT(I-1> ) / ( YT ( T ) -YT (1-1 ) ) 

7CM 

560 

ZRs7Z(l)+(Z7(P)-77(l))*YF ■ 

ZCM 

570 

GO TO 150 

ZCM 

580 

IF (X.LT.XF) GO TO 140 

7CM 

590 

PI=3. 14159265 

ZCM 

600 

C ( 1 ) =-PFI_T A 

ZCM 

610 

JR=15 

ZCM 

6?0 

DO 120 J=2,Jd 

ZCM 

630 

XK=(J-1)*PI»XF 

ZCM 

640 

C ( J) =-?.*DEltA*STN (XK) /XK 

ZCM 

650 

ZR=0, 

ZCM 

660 

DO 130 J=1 * JP 

ZCM 

670 

X K= ( J- 1 ) *P1*X 

ZCM 

6B0 

ZR=ZR+C ( J> *COS (XK) 

ZCM 

690 

GO TO 150 

ZCM 

700 

?Rs-DFLTfi/XF 

ZCM 

710 

CONTINUF 

ZCM 

720 

RETURN 

ZCM 

730 

END 

ZCM 

740 


SUBROUTINE FUN A ( XT., YT * 7T , F J 1 1 FJ.2 , F.J3 ) 



FNA 

10 

INDUCED VELOCITY DUE TO A VORTEX ELEMENT 

OF 

UNIT STRENGTH 

TRAIL INGFNA 

?o 

FROM (XT,YT.,ZT) TO INFINITY 



FNA 

30 

COMMON /A.LLSA/ 4 A ( 2 1 ) , RFT A2 .« T-ANPH 1 , B2PH1 

, AB 

,D4,AC (?) , D4SQ? 

FNA 

40 

COMMON /X'lYlZ.I/ Xl.YTVZl 



FNA 

.50 

DIMENSION A (3) , 8(3), C(3) 



FNA 

60 

A ( 1 ) = XT-X I 



FNA 

70 

■A ( 2 ) = YT-Y I 



FNA 

80 

A { 3 ) =7T-Z I 



FNA 

90 

B(1)=XT+1-XI 



FNA 

loo 

B (2)=YT-YI 



FNA 

110 

>B (3) sZT+TANphI-TT 



FNA 

120 

CALL vCRSPPD (A, B.,C) 



FNA 

130 

CC=SORT (C ( 1 ) *C ( 1 ) *C (2)«C (?) *C (3) *C (3) ) 



FNA 

140 

IF (Cr.LE, (1 .F-10) ) GO TO 10 



FNA 

150 

D5=2.* (P2PH1* (7T-7I-XT*TANPH1 )-XI) 



FNA 

160 

T)6=XI«-Xl>btTA?» ( (YI-YT) (7T-ZI-XT#TANPH1 ) **?) 

FNA 

170 

q=4.»84*D6-D5«D5 



FNA 

1R0 
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o o 


10 


IF (O.LF. (l.F-10) ) GO TO 10 
PR=SOPT (D4«XT*XT+05»XT*06) 
FJ4=?.*(D4 Sq?- (?.*D 4*XT+n5)/PB) /Q 
FJ1= (YT-Yl ) «TANPH1«FJ4 
FJ2=(ZT-7l* (Xl-XT)*TANPH1)«FJ4 
FJ3=-(YT-YI)*FJ4 
RETURN 
FJ1=0. 

FJ2=0. 

FJ3=0. 

RFTURN 

END 


SURROIJTINE INFL? < X 1 , Y 1 , 7 1 , X2 » Y2 , Z2 , VACL ) 

INDUCED VELOCITY DUE TO A VORTEX ELEMENT OF UNIT STRENGTH LYING 
BETWEEN (X1,Y1*71) AND (X2,Y2,Z2) 

COMMON /ALLRA/ AA ( 20 ) * RETA 
COMMON /XIYIZI/ Xl*YI*ZI 

DIMENSION V A C 3 > * VL{3), VAP(3), VBP(3), VLP(3), VACL(3)* VAPCLP(3) 

VA(1)=X1-XI 

VA(2)=Y1-YI 

V A (3) =7l-ZI 

VL(1)=X2-X1 

VL (2) =Y2-Y1 

VL ( 3) =72-Z 1 

VAP ( 1 ) =VA ( 1 ) 

VAP (2) =PETA»VA (?) 

VAP(3)=RElA*VA (3) 

VRP ( 1 ) =X2"X I 

VBP (2) =RETA* (Y2-YI ) 

VBP(3)=BETA«(7p_ z I) 

VLP(1)=VL(1) 

VLP (2) =FETA«VL (?) 

VLP(3)=RETA»vL (3) 

CALL CPSPRD ( VA » VL ♦ VACL ) 

CALL CPSPHU (VAP,VLP»VAPCLP) 

CALL DOTPRD (VAPCLP*VAPCLP,DAPCLP) 

IF (ARS (DAPCLP) .LT. (l.E-10) ) GO TO 10 
CALL DOTPRD (VBP, VBP,ORP) 


FNA 

190 

FNA 

200 

FNA 

210 

FNA 

220 

FNA 

230 

FNA 

240 

FNA 

250 

FNA 

260 

FNA 

270 

FNA 

280 

FNA 

290 

FNA 

300 

INF 

10 

INF 

20 

INF 

30 

INF 

40 

INF 

50 

INF 

60 

INF 

70 

INF 

80 

INF 

90 

INF 

100 

INF 

110 

INF 

120 

INF 

130 

INF 

140 

INF 

150 

INF 

160 

INF 

170 

INF 

180 

INF 

190 

INF 

200 

INF 

210 

INF 

220 

INF 

230 

INF 

240 

INF 

250 

INF 

260 
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n o 


RPMOn=SQRT (HRP) 

CALL nOTPRU (VAP,VAP,PAP) 
APMOn = SOPT (PAP) 

CALL DOTPPU (VPP,VLP.DRPLP) 

OBPLP=nBPLP/RPMOD 

CALL POTPRD (VAP»VLP»OAPLP) 

OAPLP=nAPLP/APMOn 

CONST= (npPLP-DAPLP) /DAPCLP 

GO TO 20 

10 C0NST=0. 

20 CONTINUE 

VACL(1)=VAClU)*CONST 
VACL (?) =V*Cl (?) «CONST 
VACL (3)=VACL(3)*C0NRT 
RETURN 
ENP 


INF ?7 0 
INF PRO 
INF 290 
INF 30 0 
INF 310 
INF 3?0 
INF 330 
INF 340 
INF 350 
INF 360 
INF 370 
INF 3R0 
INF 390 
INF 400 
INF 410 
INF 4?0- 


C 


SUBPOI.IT I NE NFWVFL (O.THFTP,XFE,YEF, ZEE »XN,yN,XTE,YLE, CONS, PUMMY,COVEL 


INI, CON J, CONK, SI, NSW 1 ,NCW,NWNG,CI , C J , CK , XLF , UU , W , WW , CPCW1 ,XCP,YCP,VEL 
?GAMA,YYM) VEL 

evaluates total velocity at point (xee,yee,7EF) vel 

COMMON /INDEX/ INP VEL 

COMMON /NCTT/ MOT, NOON, NPT f NC0R(15) ,KU1,NFSH(15) ,KUC VEL 

COMMON /AtRn/ NAFPO,MAXL,MAXW,ISPAN,ISF,lTPAKF,ISC vel 

COMMON /LOC/ Fill ,FU?,XEMD,PXL (5) ,PXT (5) ,PYL (5) VEL 

COMMON /OtNCF / M 1 ( 5 ) , NW ( ? ) , YRRE AK (5 ) , CH (90 ) , S J ( 3 1 , 3 ) ,MJW1 { 2 ) , VEL 

1 M JW? ( ? ) , WIDTH (5) , SWFFP (60 ) ,NTS,NC VEL 

COMMON / ALLRA/ AA ( 17) ,SINA,COSA,AP (5) ,BSQP4P VEL 

COMMON /O m/ ITEP,L1 ,L?»L3,L4,L5,L6,L7,LR VEL 

DIMENSION Pl)MMY(l), CONI(l), CONJ(l), CONK ( 1 ) , Cl ( 1 ) , C J ( 1 ) , CK ( 1 ) VEL 

1, C(l), THETP(l), XTF(l), XLE(l), YLE ( 1 ) • CONS(l), SI(1), CPCW1(1)VEL 

2, XCP(l), YCP(l), GAMA(I), YYM ( 1 ) , XN(NWNG,2), YN (NWNG,2) , NP(4), VEL 

3U (4,3) , V(3) VEL 

NSW 1 =NTS VEL 

IF POINT IS IN THE WING PL ANF , THE REGULAR mftHOD FOP VELOCITY VEL 
evaluation is IISFP. VEL 

IF (ZEE. LE.0, 00001 ) C-0 TO 130 VEL 

IF (YFF.GT.YYM(NSWl) ) GO TO 130 VEL 

IF (ITRAKfc.NE.l .ANP.YEE.GT.PYL (?) ) GO TO 10 VEL 


IP 

20 

30 

40 

50 

60 

70 

RO 

90 

100 

110 

120 

130 

140 

150 

160 

170 

180 

190 

200 

?10 

220 


140 



o o o o o 


c 


V 


CH1 = XTF(1)-XLF (1 ) 

CH2 = XT' r (2)-XLE (?) 

GO TO ?0 

10 CH1=PXT (?)-PXL (?) 

CH2=PXT (1) -PXL (3) 

20 CONTINUE 

XLY=XLE(1>+(YFF-yLE( 1) )*(XLE<2)-XLE(1) )/(YI_E(2)-YLE(l) ) 

CHY=CH1+ (YEE-YLE(l) ) * (CH2-CH1 ) / (YLE (2) -YLF ( 1 ) ) 

XC= (XEE-XLY) /CHY 

IF (XC.LT.0.0.OR.XC.GT.1 .0) GO TO 130 
7C = 7EF/CHY 

IF THE POINT (YFF,YEE,7EE) I? AT 7/C (LOCAL) LESS THAN ?TOL, THE 
VELOCITY IS OBTAINED BY LINEAR INTERPOLATION OF THE VELOCITIES 
CALCULATED AROVE FOUR WINR CONTROL POINTS AMONG WHICH THE POINT ISVF.L 360 
LOCATFD. BY NUMERICAL EXPERIMENTATION 7TOL HAS BEEN ORTAINED TO REVEL 370 


0.?. VFL 380 

ZTOL=0 . 2 VEL 390 

IF (7C. GE.ZTOL) GO TO 130 VEL 400 

1=1 VEL 410 

IF (YFE.LL.YYM(T) ) GO TO 40 VEL 4?0 

30 IF (YFF.GT.YYM(I) .AND.YEF.LE.YYM{I+1) ) GO TO 40 VEL 430 

1=1+1 VEL 440 

IF (T.LT.NSwi) GO TO 30 VEL 4S0 

40 J=1 VEL 460 

IF (XC.LE.CPCW1 (1) ) GO TO 70 VEL 470 

SO IF (XC.GT.CRCWl ( J) . AND.XC.LE.CPCW1 ( J + l ) ) GO TO 60 VEL 4R0 

J=J+1 VFL 490 

IF (J.LT.NCW) GO TO 50 VEL 500 

60 NP ( 1 ) = ( 1-1 ) *NCW*J VEL 510 

NP ( 2 ) =NP ( 1 ) + 1 VFL 5?0 

NP ( 3 ) =NP ( 1 ) *NCW VEL 530 

NP ( 4 ) =NP ( 3 ) ♦ i vEL 540 

XC1=CPCW1(J) VFL 550 

XC2=CPCW1(J + 1) VEL 560 

GO TO RO VEL 570 

70 NP(1)=NCW*NSW1*I VEL 580 

NP ( 2 ) = ( I - 1 ) *NCW ♦ l VEL 590 

NP ( 3 ) =NP ( 1 ) ♦ 1 VEL 600 

NP (4) sNP ( 2) +NCW VEL 610 

XC1=0. VEL 620 

XC?=CPCW 1(1) VEL 630 


VEL 230 
VEL 240 
VEL 250 
VEL 260 
VEL 270 
VEL 280 
VEL 290 
VEL 300 
VEL 310 
VEL 320 
VEL 330 
VEL 340 
VEL 350 
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00 

CONTINUE 


VEL 

640 

c 

EVALUATION OF INDUCED VELOCITY AT 

FOUR POINTS 

VEL 

650 


DO 100 1-1*4 


VEL 

660 


NN=NP(T) 


VEL 

670 


CALL VDTWNG ( C , THETP , XCP ( NN ) * YCP < NN ), ZEE , XN , YN , XTE * YLE 

,CONS, DUMMY (VEL 

6B0 


1L1 ) » DUMMY (L?) , DUMMY (L3) , DUMMY (L4) , 

OUMMY (L5) , DUMMY (1.6) , 

DUMMY (L7 ) ,DUVEL 

690 


2MMY (LO) , CON I, CON J* CONK, $1 ,NSW1 ,NCW 

, NWNG) 

VEL 

700 


U(I»1)=0. 


VEL 

710 


U ( I * 2 ) =0 • 


VEL 

720 


U ( I » 3 ) =0 • 


VEL 

730 


DO 90 J=1,NviNC 


VEL 

740 


U ( I » 1 ) =U (1*1) +CONI (J)*GAMA(J) 


VEL 

750 


U(I,2)=U(I»2) +C0MJ<J)*GAMA(J) 


VEL 

760 


U(I,3)=U(I»3) ♦CONK(J)*GAMA{J) 


VEL 

770 

90 

CONTINIlF 


VEL 

700 

100 

CONTINUE 


VEL 

790 

C 

INTERPOLATION 


VEL 

800 


NN 1 =NP ( 1 ) 


VEL 

810 


NN2=NP(3) 


VEL 

820 


Yl=YCP(NNl) 


VEL 

830 


Y2=YCP(NN2) 


VEL 

840 


DO 110 1=1*3 


VEL 

850 


UA=U (1 . I ) ♦ (II (3 * I ) -II < 1 * I ) ) * (YEE-Y1)/(Y2-Y1 ) 

VEL 

860 


UB=U(2,I> ♦ <U(4,I)-U(2,T> )*(YEE-Y1)/(Y?-Y1) 

VEL 

870 

110 

V ( I ) =UA ♦ (UB-liA ) * (XC-XCl ) / { XC2-XC1 ) 


VEL 

880 


uu=vn ) *cosa 


VEL 

890 


VV=V (2) 


VEL 

900 


WW = V (3) -t-SlNA 


VEL 

910 


CALL VDTFRE ( XEE ♦ YEE , ZEE , C I , C J , CK , 

NSW] » BS0D4P , XLE , YLE ) 

VEL 

920 

C 

FINAL TOTAL VELOCITY 


VEL 

930 


DO 120 J= 1 ♦ MA XL 


VEL 

940 


JJ=NWNG*J 


VEL 

950 


UU=UIUCI ( J) *GAMA { JJ) 


VEL 

960 


W = VV*CJ (J) »GAM4 ( JJ) 


VEL 

970 


WW=WW+CK ( J) *GAMA ( JJ) 


VEL 

900 

120 

CONTINUE 


VEL 

990 


RETURN 


VEL1000 

C 

EVALUATION OF VELOCITY WHEN POINT 

IS IN THE WING PLANE 

VEL1010 

130 

continue 


VEL1020 


CALL VDTWNG ( C , THET» , XEE . YEE .ZEE , XN , YN ,XTE * YLE . COM? , DUMMY (LI ) *D(JMMVEL1030 
1Y(L2) * DUMMY ( t 3 ) ,DUMMy(L 4) ,DUMMY(L5) , DUMMY (L6) « DUMMY (L7) *DUMMY (Lfi) .VEL1040 
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2C0NI .CONJ*CONK» SI.NSW1 * NCW'NWNG) 

CALL VDTFRL (XEE,YEF,ZEE*CI*CJ,CK,NSW1 *BS004P,XLE*yLE) 

uu=cosa 

vv=o. 

WW=SINA 

c velocity due to free elements 

DO 140 1=1 »MAXL 
NQ=NWNG+ I 

UU=UU+CI ( I ) »GAMA (NO) 

W=VV + CJ ( I ) *GAMA (NO) 

WW=WW*CK(I)»GAMA(NQ) 

140 CONTINUE 

c velocity due TO WING 

00 150 1 = 1* NTS 
DO 150 J= 1 » NCW 
NO=(I-l)»NCw*J 
UU=UU+C0NI (NO) *GAMA (NO) 

W=VV*CONJ (NO)«GAMA (NQ) 

WW=WW+CONK (NO) »GAMA (NO) 

150 CONTINUE 
NSW 1 =NTS 
NSW=NTS+1 
RETURN 
END 


VEL1050 
VEL1060 
VEL1070 
VEL1080 
VELIOOO 
VEL1100 
VEL1110 
VEL1120 
VEL1130 
VEL1140 
VEL1150 
VEL1160 
VEL1 170 
VEL1180 
VEL1190 
VEL1200 
VEL1210 
VEL1220 
VEL1230 
VEL1240 
VEL1250 
VEL1260 
VEL1270 
VEL1280- 


SUPPOUT I NE VMSEQN (NCI ,K,AA,A,CA) VMS 10 

DIMENSION AA(1) ,CA(1) ,A(1) VMS 20 

NC=K*NC1 VMS 30 

SUM1=0. VMS 40 

K1=K ~1 VMS 50 

JJ =1 VMS 60 

DO 10 J= 1 * K l VMS 70 

SUM1=S(JM1*AA(J)*A(JJ) VMS 80 

10 J J= J J*NC 1 ♦ 1 VMS 90 

SUM1=SUM1+AA(K) VMS 100 

DO 30 1 = 1 * N C 1 VMS 110 

SUM2=0. VMS 120 

JJ=I+1 VMS 130 

DO 20 J= 1 » K 1 VMS 140 
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SUM?=SUM2*Aa <J)*A (JJ) 

VMS 

150 

20 

JJ=JJ*NC1+1 

VMS 

160 


KK=K+T 

VMS 

170 


SUM?=S(JM2 + Aa (KK) 

VMS 

180 

30 

CA(I)=-SUM2/SUM1 

VMS 

190 


M= 1 

VMS 

?00 


L = 0 

VMS 

210 


KNC= (K-l )*NC1 

VMS 

220 


DO 60 r=i»Nc 

VMS 

230 


IF (I.GT.KNC) GO TO 50 

VMS 

240 


MM=(M-1 )»NCi+i 

VMS 

250 


IF (I.FQ.MM) GO TO 70 

VMS 

260 

40 

KK=KK* 1 

VMS 

270 


IL=I ♦L 

VMS 

280 


A ( I ) =CA (KK)»BASF+A(IL) 

VMS 

290 


GO TO 60 

VMS 

300 

50 

II=I-KNC 

VMS 

310 


A(I)sCA(II) 

VMS 

320 

60 

continue 

VMS 

330 


GO TO 80 

VMS 

340 

70 

I I=MM+M-1 

VMS 

350 


BASFsA(II) 

VMS 

360 


KK=0 

VMS 

370 


L=L + 1 

VMS 

380 


M=M* 1 

VMS 

390 


GO TO 40 

VMS 

400 

80 

CONTINUE 

VMS 

410 


RETURN 

VMS 

420 


END 

VMS 

430 



OVERLAY (LEVSP»I,0) 


GEO 

10 


PROGRAM GEOM 


GEO 

20 

C 

DEFINES THE WING AND 

FREE ELEMENT GEOMETRY 

GEO 

30 

C 

MAXIMUM VALUES 


GEO 

40 

C 

NCW = 9 


GEO 

50 

C 

** NNCW = NCW+1 = 10 


GEO 

60 

C 

NSW = 20 


GEO 

70 

C 

** NSW1 = Nsw-1 ss 19 


GEO 

80 

c 

»« NWNG = NNCW*N$W1 = 

190 

GEO 

90 



o o r> o o o n 


V 


C NCPTTL = (NNCW*1)*NSW1 = 209 GEO 100 

COMMON XXL (2) * XXT ( 2 ) » YL < 2 ) ,CPCWL(10) .CPCW1 (10) ,SI (10) ,SN ( 1 0 ) *SNN ( 1GEO 110 
10) ,SWP(50) ♦ SLOPE (50) , XL ( 2 » 1 0 ) ♦ C ( 1 9 ) ,THETP(19) ,CONS ( 19) ,CP$W1 ( 19) ,XGEO 1?0 
2LM (19) ,XTM(19) ♦YLM(IP) ,CTT(19) * CPSWL ( 20 ) , XLE ( 20 ) ,XTE(20> .YLE(20) ,XGEO 130 
3AVWNG (190) »YAVWNG( 190) , XN (190*2) ,YN( 190*2) ,XCP(?09) ,YCP (209) ,X ( 10* GEO 140 


420) ,Y(10f20) GEO 150 

COMMON / ALLrp/ AXX(210),ZMIN,NELM(11),NNELM(1?),IST GEO 160 

COMMON /LEFLP/ YLEF ( 1 0 , 2) , XNF ( 1 0 ) , YNF < 1 0 ) ,7NF ( 1 0 ) , XLF h 0 , 4 ) , GEO 170 

1YLF(10,4) *SLP1 (10) ,SS,CS, ITERS, ZBDYV(200> ,7BPY(200) GEO 180 

2»CUPV(10) »CHND(10) »S7BDYV(200) GEO 190 

COMMON /ALL!/ NSW,NSV1 , NCW, NWNG,NCPTTL»MlTFP, I PUNCH GEO 200 

COMMON /ALLRA/ TTL(16) , ALPHA, SlNA,COSA,SWPLE, BETA, RETA?,TANPH1,R2PGE0 210 

lHl,BSQD4P*04 t C0N,PI,04S02»CBAR,HALFB,AREA GEO 220 

COMMON /MDFAV/ FYP(40,2,2) ,FZP<40,2,2) GEO 230 

COMMON /XSTM/ XRRR (25) ,NBRP GEO 240 

COMMON /COEFF/ CL » FZM INS ( 1 0 ) , FHS < 2 , 1 0 ) , RATIOS ( 2 » 1 0 ) , GEO 250 

1CFCORE(?»10) ,RATIOC(2,10) GEO 260 

COMMON /LOC/ FU1,FU2,XEND,PXL(5) ,PXT(5) ,PYL(5) GEO 270 

COMMON /AERO/ NAFPO ,MAXL . MAXW , ISP AN * I SF * ITRAKE , I SC GEO 280 

COMMON /GENCF / Ml (5 ) , NW ( 2 ) , YBREAK (5 ) , CH ( 90 ) , S J ( 31 , 3 ) , M JW 1 ( 2 ) * GEO 290 

1MJW2(?) »WIDTH(5) ,SWEFP{60) ,NTS»NC GEO 300 

COMMON /NCTT/ NCT»NC0N,NBT»NC0R(15) ♦KU1»NFSH(15) »KIIC GEO 310 

COMMON /ABC/ AX (i860) ,NMAX,NNMAX»NCONTS GEO 320 

COMMON /LANDA/ FGMAl ,FBDA1,FGMA,CLS GEO 330 

COMMON /TIPVX/ XTIP(15,30) ,YTIP(15.30) t7TIP(15,30) ,NTLM(15) fNTMAX GEO 340 

COMMCM/CAMB/ ICAM , IM ( 1 0 ) « XT ( 1 0 , 2 1 ) , A AM ( 1 0 , 20 ) , RBM ( 1 0 ♦ 20 ) * GFO 350 

1CCM ( 1 0 * 20 ) *DDM(10*20) «YT (10) »ZBDX(200) »7RDXV(200) GEO 360 

COMMON /SHPLE/ NLF,YSL(15) ,A0L<14) ,BQL(14) ,CQL(14) ,D0L(14) GEO 370 

COMMON /SHPTE/ NTE,YST (15) ,AQT (14) ,BQT (14) ,CQT (14) ,DQT (14) GEO 380 

DIMENSION CPCWR(15) ,AW(201) *CA(201) VBA(15) GEO 390 

THEND=5HFND GEO 4oo 

C ***TITLE OF THf CASE TO BE RUN GEO 410 

READ (5,490) TTL GEO 420 

IF (TTL (1) •EQ.THEND) GO TO 390 GEO 430 

»**NCW = NUMBER OF ROUND ELEMENTS IN IN THE CHORDWISE DIRECTION GEO 440 

M(I) = NUMBER OF STRIPS IN EACH SPANWISE SECTION PLUS ONE GEO 450 

NC = NUMBER OF SPANWISE SECTIONS GEO 460 

NCONTS = 0, ITEPS = 0, INITIAL LOCATIONS OF FPEE ELEMENTS WILL BE GEO 470 

CALCULATED in THE PROGRAM GEO 480 

NCONTS = 1* ITEPS = 3, INITIAL LOCATIONS OF FREE ELEMENTS WILL BF GEO 490 

READ FROM DATA CARPS GEO 500 
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0 


0 


40 


ITRAKE = It ONE VORTFX CORF SYSTEM GEO 510 
ITRAKF = 2 , TWO VORTFX COPE SYSTEM GEO 520 
ISPAN = 0» LEADING-EDGE VORTEX SYSTEM START FROM LINE OF SYMMETRY GEO 530 
ISPAN = 1, LEADING-EDGE VORTEX SYSTEM START FROM OUTBOARD SECTION GEO 540 
READ (5.520) NCW ,NRRP , NCONTS .M ITER . IPUNCH , KU1 GEO 550 
READ (5.520) NC . (Ml ( I ) , T=i ,NC) . ICAM » 1ST . ITERS GEO 560 
READ (5.520) ISPAN, ITPAKE GEO 570 
NTS=0 GEO 580 
DO 10 1=1 »NC GEO 590 
NTS=NTS*Ml ( I ) -1 GEO 600 
CONTINUF GEO 610 
NSW 1 =NTS GEO 62 0 


NSW=MTS*1 

IF (ISPAN. EO.O) GO TO 20 

MAXW=NSW-(Mi ( 1 ) -l ) 

MAXL=NSW1-(M1 (1)-1) 

GO TO 30 
MAXL=NSW1 
MAX W=NSW 
CONTINUE 

*«*ALPHA AND AMACH ARE ANGLE OF ATTACK AND FREE FREE STREAM MACH NO 
DELTA IS THf LENGTH OF A LEADING-EDGE FREE VORTEX SEGMENT 
DL IS LENGTH OF A SEGMENT OF WAKE ELEMENTS 

CPAP AMD AR£ A are REFERENCE CHORD AND TOTAL REFERENCE WING AREA 
NFSH(I) = NUMBER of SEGMENTS along EACG VORTEX ELEMENT on free 
VORTEX SHEfcT 

READ (5.510) ALPHA, AMACH, DELTA, DL.XEND.CBAR, AREA. CLS 
READ (5,520) ( NFSH ( I ) , 1 = 1 , NSW 1 ) 

DO 40 1=1 »NSW1 
NCOR(I)=NFSH(I) +6 
CONTINUE 

READ (5.510) (XRRR(I) ,1=1 ,NBRR) 

READ (5.510) (CTT(I) ,I=1»NSW1) 

WRITE (6,530) JTL 

WRITE (6,520) NCW, NBPR, NCONTS, MITER, IPUNCH, KU1 
WRITE (6,520) NC, (Ml ( I ) , I=i ,NC) , ICAM, 1ST, ITERS 
WRITE (6,520) ISPAN, ITRAKE 

WRITF (6,510) ALPHA, AMACH, DELTA, DL.XEND.CBAR, AREA, CLS 
WRITE (6,520) (NFSH(I), 1=1, NSW1) 

WRITE (6,510) (XRRP(I) ,I=1,NPRR) 

WRITE (6,510) ( CTT ( I ) ,1=1, NSW 1 ) 


GEO 630 
GEO 640 
GEO 650 
GEO 660 
GEO 670 
GEO 680 
GEO 690 
GEO 700 
GEO 710 
GEO 720 
GEO 730 
GEO 740 
GEO 750 
GEO 760 
GEO 770 
GEO 780 
GEO 790 
GEO 800 
GEO 810 
GEO 820 
GEO 830 
GEO 840 
GEO 850 
GEO 860 
GEO 870 
GEO 880 
GEO 890 
GEO 900 
GEO 910 
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V 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


SS=SIMD(ALPHA) 

CS=COSD (ALPHA) 

***YT(I) IS Y-STATTON at WHICH CAMBER ORDINATES ARE READ IN 

XNUM IS NUMBER OF CAMBER ORDINATES TO BE READ IN. (LIMITED TO 
CURV(I) =0. IF CAMBER IS TO BE FORMED By CONNECTING STRAIGHT 
SEGMENTS, WITH FIRST SEGMENT BEING REGARDED AS FLAT L.E. FLAP 
CURV(I) = 1. IF CUBIC SPLINE INTERPOLATION IS USED 
CURV(I) = 2. IF CUBIC SPLINE INTERPOLATION IS USED , WITH 
FIRST SEGMENT BEING FLAT LEADING-EDGE FLAP 


IS CHORD LENGTH AT YT { I ) STATION 
hLAT WING 

CAMBER ORDINATES TO RE 
CAMBER ordinates to be 
PLANE with l.e. flaps 
GO TO 100 


READ IN 
DEFINED 


ANALYTICALLY 


CHND(I) 

ICAM - 0 
ICAM = 1 
ICAM = 2 
ICAM = 3 
IF (ICAM.NE.l) 

DO 90 1=1 » 1ST 

READ (5,510) YT(I> ,XNUM,CURV(I) ,CHND(I) 

WRITE ( 6 , 5 1 0 ) YT(I) ,XNUM,CUPV(I) ,CHND(I) 

IM(I)=XNUM 
IR=IM ( I ) 

I CV=CURV ( I ) 

***XT(I,J) X/C VALUES AT WHICH CAMBER ORDINATES ARE READ IN FOR 
YT { I ) STATION 

CA ( J ) Z/C VALUFS IF CAMBER ORDINATES AT THE CORRESPONDING 

XT ( I ♦ J ) LOCATIONS 

READ (5,510) (XT ( I * J) * J=1 » IP) 

WRITE (6,510) (XT ( I , J ) ♦J=1,IR> 

(CA ( J) , J=1 » IR) 

( C A ( J ) , J= 1 , I R ) 


50 


60 


READ (5,510) 
WRITE ( 6 , 51 o ) 
DO 50 K=1 ♦ IR 
AW(K)=XT(I»K) 
IF (ICV.EQ.O) 


GO TO 60 


70 

80 


CALL SPLINE (IR,AW,CA,AAM,PBM,CCM,DDM) 

GO TO 90 
DO 80 J=2,lR 
AAM ( I , J-l ) =0 • 

BBM ( I , J- 1 ) =0 . 

IF (ARS(AW(j)-AW(J-l) ) .IE.1.E-20) GO TO 70 
CCM ( I , J-l ) = (CA ( J) -CA ( J-l ) ) / (AW (J) -AW (J-l ) ) 
DDM ( I , J-l ) =CA (J-l ) 

CONTINUF 


GEO 920 
GEO 930 
GEO 940 
21) GEO 950 
GEO 960 
GEO 970 
GEO 980 
GEO 990 
GEOIOOO 
GEO1010 
GE01020 
GE01030 
GE01040 
GE01050 
GE01060 
GE01070 
GE01080 
GE01090 
GE01100 
GEO1110 
GE01120 
GEOl 130 
GE01140 
GEOl 150 
GEOl 160 
GEOl 170 
GEOl 180 
GEOl 190 
GE01200 
GE01210 
GEOl 220 
GE01230 
GEOl 240 
GEOl 250 
GF01260 
GEO 1270 
GE01280 
GE01290 
GE01300 
GE01310 
GEOl 320 
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10 

20 


no 


L.E. FLAP INPUT 
POINT. 


90 CONTINUE 

100 continue 

IF (ICAM.NE.3V 00 TO 120 

«#«YLEF(T,1) = EXTREME INBOARD Y-COORDINATF OF A L.E. FLAP 
YLEF (1*2) = FXTREME OUTBOARD Y-COORDINATE OF A L.F. FLAP 

xi,yi,zi» etc. are corner point coordinates of a 

IN CLOCKWISE ORDER* FIRST FROM THE MOST INR0ARD 
DO 110 I = 1 * I ST 

READ (5*510) (YLEF (I,K) ,K=1 *2) 

WRITE ( 6 » 5 1 o ) (YLEF(T,K) ,K=1,2) 

READ (5*510) XLF (1*1) *YLF ( I . 1 ) *Z1,XLF(I,2) *YLF (1*2) ,Z2 
WRITE (6*510) XLF(T*1) , YLF ( I » 1 } , Z 1 * XLF (1*2) »YLF(I*2) *72 
READ (5*510) XLF (1*3) «YLF (1*3) » Z3 * XLF (1*4) * YLF ( I * 4 ) * Z4 
WRITE (6,510) XLF (1*3) *YLF (1,3) *Z3,XLF (1*4) *YLF (1*4) *74 
IF (ARS (XLF (1,4) -XLF (1*1) ) .GT.l.E-18) SLPl ( I } = ( YLF (1,4) -YLF (1,1) ) 
1 (XLF(I,4)-XLF(I,1) ) 

IF (ABS(XLF(I,4)-XLF(I,1) ) .LE.l.E-18) SLPl ( I ) =1 .ElB 
XNF ( I ) = ( YLF (1,4) -YLF (1,1)) <MZ3-Z 2) - (YLF ( I , 3) -YLF ( I ,2) ) w (Z4-Z1 ) 

YNF ( I ) = ( XLF (I*3)-XLF(I*2) ) * ( Z4-Z1 ) - ( XLF ( I , 4 ) -XLF ( I , 1 ) ) * ( Z3-Z2 ) 

ZNF ( I ) = ( XLF (I, 4) -XLF (1,1) ) * ( YLF (I , 3 ) -YLF ( I , 2 ) ) - ( XLF ( I , 3) -XLF ( I , 2 ) 
1*(YLF(I,4)-YLF(I,1)) 

IF (ARS (ZNF (I) ) .GT.l.E-3) GO TO 110 

XNF ( I ) = (YLF (I,4)-YLF(I,1) )*(Z2-Z1)-(YLF(I,2)-YLF(I,1) )*(Z4-Z1) 
YNF(I)=(XLF(I,2)-XLF(I,1) )*(Z4-Zl)-(XLF(I,4)-XLF(I t l) )*(Z2-Z1) 

ZNF ( I ) = ( XLF ( I , 4 ) .XLF ( I , 1 ) ) » (YLF (1,2) -YLF ( I , 1 ) ) - ( XLF ( I , 2) -XLF (1,1) 
1* (YLF (I, 4) "YLF (1,1) ) 

CONTINUE 


elements = 
elements = 


(NCW+ 1 ) 
NCW 


continue 

IF (ICAM.EQ.O) TST=1 
NNCW=NCW 
NCW=NNCW+1 

NPRCY=0, USED FOR BOUND 
NPRCY=1, USED FOR ROUND 
NPPCY=0 

IF (NPRCY.Eq.1) NCW=NNCW 
PI=3. 14159265 
FN2=2#NCW 
PIJ=PI/FLOA T (NCW) 

TWOP I =2 • *P I 
DO 140 1 = 1* NCW 

CPCWL(I)=50.*d.-COS( (2.*FLOAT(I)-l.)'*PI/FN2) ) 


GE01330 
QE01340 
GE01350 
GE01360 
GEO1370 
GEO13R0 
GE01390 
GE01400 
GE01410 
GE01420 
GE01430 
6E01440 
GE01450 
GE01460 
/GE01470 
GE01480 
GE01490 
GE01500 
GE01510 
) GE01520 
GE01530 
GE01540 
GE01550 
GE01560 
) GE01570 
GE01580 
GE01590 
GE01600 
GE01610 
GE01620 
GE01630 
GE01640 
GE01650 
GE01660 
GE01670 
GE01680 
GE01690 
GE01700 
GE01710 
GE01720 
GE01730 


148 



on*— • <-• no ooooooo on 


CPCW1 <I)=50.*(1.-COS(FLOAT(I)#PI/FLOAT(NCW) ) ) 

CC=CPCWL(I)/100. 

SNN(I)=2.*SorT(CC*(1.-CC) ) 

PSIJ=(2.*FL0AT(I)-1.)*PTJ/?. 

SN(I)=SIN(PSIJ)/TW0PI 
140 SI (I)=TWOPI«SN(T) 

NCS = 0 
I PANEL= 1 
DO ?60 KK=1,NC 
WRITE ( 6 , 40 o ) KK 

**«XXL(I)*XXT(I),YL(I) DEFINE THE LEADING-FDGF AMD TRAILING-EDGE 
LOCATIONS Of the root and tip chords in each spanwise section 
READ (5,510) (XXL(I) ,XXT(I) ,YL(I) ,1=1,2) 

WRITE (6,510) ( XXL ( I ) ,XXT(I) *YL(I) ,1=1,2) 

ISC = 1 

IF ISC=1, SKIP THE FOLLOWING INPUT DATA 
IF (ISC.EQ.I) GO TO 200 

«**NLE = NUMBER OF INPUT POINTS TO DEFINE THE L.E. LIMITED TO 15 
NTE = NUMBER OF INPUT POINTS TO DEFINE THE T.E. LIMITED TO 15 
MCVL=1 IF THE CUBIC SPLINE IS USED TO INTERPOLATE THE L.E. SHAPE 

mcvl=o if straight segments are assumed for the l.e. shape 

MCVT=1 IF THE CURIC SPLINE IS USED TO INTERPOLATE THE T.E. SHAPE 
MCVT=0 IF STRAIGHT SEGMENTS ARE ASSUMED FOR THE T.E. SHAPE 
READ (5,520) NLF*NTE,MCVL,MCVT 
WRITE (6,520) NLE»NTE,MCVL ,MCVT 

***BA,YSL = X- AND Y- COORDINATES OF INPUT POINTS TO DEFINE THE L.E, 
SHAPE RELATIVE TO THE L.E. OF INBOARD CHORD 
READ (5,510) (BA(I) ,I=1,NLE) 

WRITE (6,510) (RA (I) ,1=1, NLE) 

READ (5.510) (YSL(I) ,I=1,NLE) 

WRITE ( 6 , 5 1 o ) (YSL(I) ,I=1,NLE) 

IF (MCVL.EQ.O) GO TO 150 

CALL SPLINE (NLE , YSL , RA , AOL , BGL , CGL * DQL ) 

GO TO 170 

50 DO 160 1=2, NLE 
AOL ( 1-1 ) =0 • 

POL ( 1-1 ) =0 • 

CQL(I-1)=(BA(I)-RA(I-1) )/(YSL(I)-YSL(I-l) ) 

60 DQL (I-l)eBA (i-i) 

«*«PA,YST = X- ANS Y- COORDINATES OF INPUT POINTS TO DEFINE THE T.E. 
SHAPE PFLATIVF TO THE T.E. OF INBOARD CHORD 


GE01740 

GE01750 

GE01760 

GE01770 

GE01780 

GE01790 

GE01800 

GE01810 

GE01820 

GE01830 

GE01840 

GE01850 

GE01870 

GE01880 

GE01890 

GEO1920 

GE01930 

GE01940 

GE01950 

GE01960 

GE01970 

GE01980 
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GE02000 

GE02010 
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GE02050 
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GE02070 

GE02080 

GE02090 
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170 CONTINUE 

READ (5*510) (RA (I) *1=1 .NTE) 

WRITE (6*510) (RA ( I ) * 1 = 1 *MTE) 

READ (5*510) (YST(I) *1=1. NTE) 

WRITE ( 6 » 5 1 0 ) (YST ( I) * 1 = 1 *MTE) 

IF (MCVT.EO.O) GO TO 1R0 

CALL SPLlNt (NTE*YST*PA,AOT*BQT*COT,DOT) 

GO TO ?00 

1R0 DO IRQ 1=2* MTF 
AOT ( I - 1 ) =0 • 

BOT ( 1-1 ) =0 • 

CQT(I-1)=<BA (I)-RA(I-l) )/(YSTCI)-YST(I-l) ) 

190 DOT (I-l)=BA(i-i) 

200 CONTINUE 

YBREAK (KK) =YL (?) 

XBRR ( 20 + KK) =ATAN ( (XXL ( ?) -XXL ( 1 ) ) / (YL (2) -YL { 1 ) ) ) 

PXL (KK)=XXL (l ) 

PXL (KK*1 ) =XXL (?) 

PXT (KK)=XXT (1) 

PXT(KK+l) = XxT (?) 

PYL(KK)=YL(1) 

PYL(KK*.1)=YL(?) 

FM=M1(KK) 

NSW=M1(KK) 

NSW1=NSW-1 , 

DO 210 J=1*NSW 
FJ=FLOAT (J) *2. 

?10 CPSWL(J)=50.*(1.-COS( (FJ-1,)*PI/(?,*FM) ) ) 

DO 220 1=1 *NSW1 
F 1 = I 

220 CPSW1 (I)=50.*(1,_C05(FI*PI/FLOAT(NSW) ) ) 

IF (KK.EQ.NC) GO TO 230 
CPSWL ( 1 ) =0 • 

CPSWL (NSW) =100. 

GO TO 240 
230 CPSWL ( 1 ) =0 • 

IF ( (XXT (2)-XXL (?) ) .NE.O.) CPSWL < NS W ) =1 0 0 . 

240 CONTINUE 

CALL PNLWNG (NSW , I PANEL * LPANEL » NCW * NCS » NTS . NC * KK , ISC) 

IPANEL=LPANFL*1 

NCS=NCS+NSW-1 


GEO? 180 
GE02190 
GE02200 
GEO2210 
GE02220 
GE02230 
GE02240 
GE02250 
GE02260 
GE02270 
GE02280 
GEO2290 
GE02300 
GE0231 0 
GE02320 
GE02330 
GE02340 
GE02350 
GE02360 
GE02370 
GEO23R0 
GE02390 
GE02400 
GE0241 0 
GE02420 
GE02430 
GE02440 
GE02450 
GE02460 
GE02470 
GEO24R0 
GEO2490 
GE02500 
GE02510 
GEO2520 
GE02530 
GE02540 
GE02550 
GE02560 
GE02570 
GE02580 
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WIDTH(KK)=YL(2)-YL(1) 

IF (KK.NE.NC) GO TO 260 
HALFP=PYL (NC+1 ) 

DO 250 1=1 tNTS 
CH(I)=XTM(I)-XLM ( I) 

C(I)sCH(I) 

YYLM=YLM(I)/HALFB 
250 THETP(I)=ARCOS(YYLM) 

260 CONTINUE 

NCPTTL=NTS+LPANEL 

NWNG=LPANtL 

IF (NPRCY.Eq.d GO TO 290 
NCW 1 =NCW 
REWIND 1 
REWIND 7 

WRITE (1) NCW.NWMG 

WRITE (1) (SI (I) , SNN ( I ) ,I=1»NCW) 

N2=NCW*NC 

WRITE (1) (SWP(I) , I=1,N2) 

WRITE (1) (XAVWNG(I) ,YAVWNG(I) ,I=1,NWNG,NCW) 

DO 270 1=1 »NCW 

270 CPCWR(I)=CPCWL (IJ/IOO. 

WRITE (6,430) 

WRITE (6,440) 

NSW1=MTS 

NSW=NTS+1 

CALL CAMBER (NPRCY,C*XCP,YCP,XN,YN» XLM»YLM,XAVWNG,YAVWNG) 
DO 280 1=1 »NSW1 
DO 280 J= 1 » NCW 
IJ=(I- 1 )*NCw+J 

WRITE (6,510) 7ROXV(IJ) ,ZBDYV(IJ) 

280 CONTINUE 
NPRCY= 1 
GO TO 130 

2P0 DO 300 1= 1 ♦ NCW 

CPCWL(I)=CPCWL(I)/100. 

300 CPCW1 (I)=CPCW1 (I)/100. 

NSW 1 =NTS 
NSW=NTS+ 1 
WRITE (6,450) 

CALL CAMBER (NPRCY,C,XCP, YCP,XN,YN,XLM,YLM,XAVWNG,YAVWNG) 


GE02590 

GE02600 

GE02610 

GE02620 

GE02630 

GEO2640 

GE02650 

GE02660 

GE02670 

GE02680 

GE02690 

GE02700 

GE02710 

GE02720 

GE02730 

GE02740 

GE02750 

GE02760 

GE02770 

GE02780 

GE02790 

GE02800 

GE02810 

GE02820 

GE02830 

GE02840 

GE02850 

GE02860 

GE02870 

GE02880 

GE02890 

GE02900 

GE02910 

GE02920 

GE02930 

GE02940 

GE02950 

GE02960 

GE02970 

GE02980 

GE02990 



CALL CAMPER (?,C,XCP,YCP,XN,YN,XLM,YLM,XAVWNG,YAVWNG) 
WRITE (6.460) 

DO 310 T=1*NSW1 
DO 310 J= 1 ♦ NCW 
IJ=(I-l)*NCw*J 

WRITE (6,blo) 7BDX(IJ) ,7BDY(IJ) *S7RDYV(IJ) 

310 CONTINUE 

WRITE (6,470) 

WRITE (6,480) 

DO 320 1=1 »NSW1 
I J=NWNG* I 

WRITE (6,bl0) 7RDX(IJ) ,ZPDY(IJ) 

320 CONTINUE 

C EVALUATING THE CONSTANTS 

ALPHA=ALPHA*pi/iao. 

TANPH1=TAN (ALPHA) 

TANPH2=TANPH1*TANPH1 
PETA2=1.-AMACH*AMACH 
BETA=SORT (BETA2) 

B2PH1=PETA2»TANPH1 
D4=BETA2*TAnpH2*1 . 

D4SQ2=2.»SQRT (D4) 

C0N=BETA2/ (8. AFLOAT (NCW) ) 

BSQD4P=RETA?/(4.#PI) 

DO 330 T=i»NC 
SWPLE=XBRR (20*1 ) 

CONl=COS (SWPLE) 

C0N2= (SIN (SWPLE) ) /CONI 

C0N3=FL0AT <NCW) *SORT (RETAp + C0N2*C0N2) 

C0N4=?.*C0Nl/ (PI*SORT (1 .-AMACH#AMACH«CON1*CON1 ) ) 
AW(I)=C0N3 
CA(I)=C0N4 
330 CONTIMUE 
N1 = 0 

DO 350 KI=1,NC 
N2=N1*M1 (KI)-i 
I I=N1 + 1 

DO 340 1 = 1 1 ,N2 

340 CTT(I)=AW(Kl)»SORT(CA(KI)*CTT(I) ) 

N 1 =N2 

350 CONTINUE 


GE03000 

GEO3010 

GE03020 

GE03030 

GE03040 

GE03050 

GE03060 

GE03070 

GE03080 

GE03090 

GE03100 

GE03110 

GE03120 

GEO3130 

GE03140 

GE03150 

GE03160 

GE03170 

GE03180 

GE03190 

GE03200 

GE03210 

GE03220 

GE03230 

GE03240 

GE03250 

GE03260 

GE03270 

GE03280 

GE03290 

GE03300 

GE03310 

GE03320 

GE03330 

GE03340 

GE03350 

GE03360 

GE03370 

GE03380 

GE03390 

GE03400 
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360 


370 

3P0 


3^0 

C 

400 

430 

440 

450 

460 

470 

4P0 

490 

500 


DO 360 1 = 1 * NSW 1 
CONS ( I ) =CON«C ( I ) 
SINA=SIN(ALPHA) 

COSA=COS (ALPHA) 

DO 370 1 = 1* NSW 

CPSWL ( I ) =YLF ( I ) /PYL ( NC + 1 ) 

DO 380 1=1 *NSW1 

CPSW1 (I)='YLM(I)/PYL(NC+1) 

WRITE (1) ( SNN ( T ) « I = 1 « NCW ) 

N2=NCW*NC 


GE03410 

GE03420 

GE03430 

GE03440 

GE03450 

GE03460 

GE03470 

GE03480 

GEO3490 

GE03500 


WRITE 

(1) 

(SWP(I) * 1 = 1 *N2) 

GE03510 

WRITE 

(1) 

( XAVWNG ( I ) , YAVWNG ( I ) ,I=1.NWNG) 

GE03520 

WRITE 

(1) 

(C(T) ,I=1*NSW1) 

GEO3530 

WRITE 

(1) 

(THETP(I) *I=l.NSWl) 

GE03540 

WRITE 

(1) 

(XTF(I) . XLE ( I ) *YLE(I) ,1=1, NSW) 

GE03550 

WRITE 

(1) 

(XLM(I) ,YLM(I) ,I=1,NSW1) 

GE03560 

WRITE 

(1) 

( CONS ( I ) *1=1 *NSW1 ) 

GE03570 

WRITE 

(1) 

(SI (I) ,SN(I) ,1=1, NCW) 

GE03580 

WRITE 

(1) 

(XCP(I) , YCP ( I ) ,1=1, NCPTTL ) 

GE03590 

WRITE 

(1) 

< (XN(I,J) ,YN(I,J) » J=1 ,2) , 1 = 1 ,NWNG) 

GE03600 

WRITE 

(1) 

( CTT ( I ) ,1=1 ,NSW 1 ) 

GE03610 

WRITE 

(1) 

(CPCWL (I) ,1=1, NCW) 

GE03620 

WRITE 

(1) 

(CPCW1 (I) ,1=1, NCW) 

GE03630 

WRITE 

(1) 

(CPSWL (I) ,1=1, NSW) 

GE03640 

WRITE 

(1) 

(CPSW1 (I) ,1=1 ,NSW1) 

GE03650 


IF ( (PXT(NC*1)_pxL(NC+1) ) .NE.O.) MAXW=NTS GE03660 

CALL FRELM ( XXL, XXT,YL, XL E,XTE,YLE, PI ,NCW1*NSW1 ,XEND, DELTA, ALPHA, DGE03670 


1L.CPCWL) GE03680 
RETURN GE03690 
WRITE (6*500) GE03700 
STOP 6E03710 

GE03730 

FORMAT (29H SAPMWISF SFCTION OF NUMBER ,?X*I2) GEO3740 
FORMAT (1H0,A0H CAMBER SLOPE AT FINE GRID BOUND FLEMENT) GE03770 
FORMAT (1H0, 3X.5HD7DXV,5X*5HDZDYV) GE03780 
FORMAT ( 1 HO * 42H CAMBER SLOPE AT COARSE GRID ROUND ELEMENT) GEO3790 
FORMAT (lH0,3x,4HDZDX » 7X * 4HDZDY * 5X » 5HDZDYV ) GE03800 
FORMAT ( 1 HO * 4PH CAMRER SLOPE AT THE LEADING EDGE CONTROL POINTS) GE03810 
FORMAT ( lH0,3x,4HDZnx.7X.4HD7DY> GE03820 
FORMAT ( 16 A?) GE03830 
FORMAT (lHl f / t lox*!9HALL CASES COMPLETED) GE03840 
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51 0 

FORMAT 

(flFlO.5) 

GE03850 

520 

format 

(1015) 

GE03860 

530 

FORMAT 

(lHl,/,17H INPUT DATA CARDS/»16A5) 

GE03870 


END 


GEO38B0 



SUBROUTINE PNLWNG <NSW,IPANEL,LPANEL,NCW,NCS,NTS,NC,KI.ISC) 

PNG 

10 

C 

GENERATES THF GRID OF BOUND AND TRAILING VORTEX ELEMENTS 

PNG 

20 


COMMON XXL<?) ,XXT(2) ,YL(2) ,CPCWL<10> ,CPCW1 (10) ,SI (10) . SN ( 1 0 ) , SNN ( 1 PNG 

30 


10) ,SWP(50) * SLOPE (50) , XL < 2 , 1 0 ) » C ( 1 9 ) ,THETP(19) ,CONS<19) ,CPSW1 (19) , 

XPNG 

40 


2LM(19) ,XTM(19) ,YLM(19) ,CTT(19) ,CPSWL(20) , XLE ( 20 ) , XTE ( ?0 > ,YLE(20) , 

XPNG 

50 


3AVWNG(190) ♦ YA VWNG (190) * XN ( 1 90 » 2) , YN ( 1 90 , 2) ,XCP( 209) ,YCP(209) ,X(10 

,PNG 

50 


420) ,Y ( 10,20) 

PNG 

70 


IF (ISC.NE.l) GO TO 80 

PNG 

80 

C 

STRAIGHT LEADING-EDGE COMPUTATION 

PNG 

90 


DO 10 1=1*2 

PNG 

100 


D=XXT(I)-XXL(I) 

PNG 

110 


DO 10 J=1»NCW 

PNG 

120 

10 

XL(I,J)=XXL(I)*CPCWL(J)*D/100. 

PNG 

130 


SPAN=YL (2 ) ”YL ( 1 ) 

PNG 

140 


DO 20 1 = 1 » New 

PNG 

150 


II=(KI-1)*NCW*I 

PNG 

160 


SLOPE (II) = (XL(2,I) -XI (1,1) ) /SPAN 

PNG 

170 

20 

SWP(II)=ATAN(SLOPF(II) ) 

PNG 

180 


DO 30 1 = 1 * New 

PNG 

190 


II = t K I — 1 ) *Nc W ♦ T 

PNG 

200 

30 

CONTINUE 

PNG 

210 


DO 40 K=l*Nsw 

PNG 

220 


YK=CPSWL (K)*SPAN/100. 

PNG 

230 


YL1=YL(1) + YK 

PNG 

240 


DO 40 J=1 * NCW 

PNG 

250 


JJ=(KI-1)*NCW+J 

PNG 

260 


Y ( J , K ) =YL 1 

PNG 

270 

40 

X ( J, K ) =XL ( 1 , J ) ♦ SLOPE ( J J ) #YK 

PNG 

280 


NSW 1 =NSW- 1 

PNG 

290 


IF (NC.FO.l) GO TO 50 

PNG 

300 


IF (KI.NE.l) GO TO 50 

PNG 

310 

50 

continue 

PNG 

320 


XLE ( 1 ) =XXL ( 1 ) 

PNG 

330 


XTE ( 1 ) =XXT ( 1 ) 

PNG 

340 


L 
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V 


i 


l- 


YLF(1)=YL(1) 

60 CONTINUE 
X 1 =XXL ( 1 ) 

X?=XX.T (1 ) 

DLE= (XXL (?)— XXL (1) )/SPAN 

DTE=(XXT(2)-XXT(1) )/?PAN 

DO 70 I=?*NSW 

I I=NCS + I 

YLE ( 1 1 ) =Y ( 1 * I ) 

YLM(II-1)=YL(1)+CPSW1 (1-1 )*SPAN/100. 
DLEL=DLE*(Y (i t l)-Y(l,I-l) ) 
DTET=DTEMY<1,I)-Y(1,I-1) ) 
XLE(II)=XLE(II-l)+DLFL 
XTE(TI)=XTfc(H-D*OTFT 
XLM ( 1 1 - 1 ) =X1+SPAN»CPSW1 (1-1 ) *OLE/l 00 . 
70 XTM(II-1)=X2 + span«CPSW1 ( 1-1 ) *DTE/ 1 00 . 

GO TO 110 

C CURVED LEADING-EDGE COMPUTATION 

80 SPAN=YL(2)-YL(1) 

DO 90 K=1 ♦ Nsw 
I I=NCS+K 

YK=CPGWL (K) «SPAN/100. 

YC=YL <1 ) ♦ YK 

XLE (II) =SHAPLE ( YK ) +XXL ( 1 ) 

XTE ( II ) =SHAptE (YK) *XXT (1 ) 

YLE(II)=YC 

CHD=XTE(II)-XLE(II) 

DO 90 J= 1 » NCW 
Y ( J • K ) =YC 

X ( J,K)=XLt ( II) +CPCWL ( J) *CHD/100. 

90 CONTINUE 

NSW1=NSW-1 
DO 100 I- 1 * NSW 1 
1 1 =NCS* I 

YK1=CPSW1 (I)*SPAN/100. 

YC1=YL (1) +YK1 

XLM(II)=XXL(1) *SHAPLF(YK1) 

XTM ( I I ) =XXT (1)*SHAPTE(YK1) 

YLM(II)=YC1 
100 CONTINUE 
110 CONTINUE 


PNG 350 
PNG 360 
PNG 370 
PNG 3R0 
PNG 390 
PNG 400 
PNG 410 
PNG 420 
PNG 430 
PNG 440 
PNG 450 
PNG 460 
PNG 470 
PNG 480 
PNG 490 
PNG 500 
PNG 510 
PNG 520 
PNG 530 
PNG 540 
PNG 550 
PNG 560 
PNG 570 
PNG 580 
PNG 590 
PNG 600 
PNG 610 
PNG 620 
PNG 630 
PNG 640 
PNG 650 
PNG 660 
PNG 670 
PNG 680 
PNG 690 
PNG 700 
PNG 710 
PNG 720 
PNG 730 
PNG 740 
PNG 750 
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c 

DETERMINE THE CONTROL AND VORTEX POINTS ON THE WING SURFACE 

PNG 

760 


DO 130 K-l » NSW 1 i 

PNG 

770 


KN=NCS + K 

PNG 

760 


CC=XTM (KN) -XLM (KN) 

PNG 

790 


DO 130 J= 1 « NCW 

PNG 

R00 


NPANEL=IPANEL* (K-1)*NCW+J-1 

PNG 

810 


XCP ( NP ANEL ) =XLM (KN) *CC#CPCWl <J) /100. 

PNG 

820 


YCP (NPANEL) =YLM (KN) 

PNG 

830 


XAVWNG (NPANEL) =XLH (KN) + CC<»CPCWL ( J) /100 . 

PNG 

840 


yavwng(Npanf:l)=ylm(kn) 

PNG 

850 


DO 120 1=1*2 

PNG 

860 


ka=k+ 1-1 

PNG 

870 


XN(NPANEL*I)=X (J,KA) , 

PNG 

880 

120 

YN (NPANEL* I ) =Y ( J,KA) 

PNG 

890 

130 

continue 

PNG 

R00 


LPANEL=NPANpl 

PNG 

910 


IF (KI.NE.NC) RETURN 

PNG 

920 


DO 140 K=1 ♦NTS 

PNG 

930 


np=lpanel + k 

PNG 

940 


XCP (NP) =XLM (K) 

PNG 

950 

140 

YCP (NP) =YLM (K) 

PNG 

960 


RETURN 

PNG 

970 


END 

PNG 

980 



FUNCTION SHAPLE(Y) 

SHL 

10 


COMMON /SHPLE/ NLE,YSL(15) ,AQL(14) ♦B0L(14) ,C0L(14) ♦DQL(14) 

SHL 

20 


K = 1 

SHL 

30 

10 

IF (Y.GE.YSL(K) .ANP # Y.LT.YSL<K+1) ) GO TO 20 

SHL 

40 


K=K ♦ 1 

SHL 

50 


IF (K.GE.NLF) GO TO 30 

SHL 

60 


GO TO 10 

SHL 

70 

20 

SM=y-YSL (K) 

SHL 

80 


SHAPLF=AOL (K) *SM*«3+BOL (K)*SM*«2+CQL (K) «SM+DOL (K) 

SHL 

90 


GO TO 50 

SHL 

100 

30 

IF (Y.LT.YSL(l) ) GO TO 40 

SHL 

110 


K=NLE-1 

SHL 

120 


GO TO 20 

SHL 

130 

40 

K= 1 

SHL 

140 


GO TO 20 

SHL 

150 
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V 


SHL 160 
SHL 170- 


FUNCTTON SHAPTF(Y) 

COMMON /SHPiE/ NTF,YST(15) ,A0T<14) ,R0T(14) ,CGT(14) ,D0T<14) 
K = 1 

10 IF (Y.OF.YSt (K) .AND.Y.LT.YST (K+l ) ) GO TO 20 
K=K ♦ 1 

IF (K.GF.NTF) GO TO 30 
GO TO 10 

?0 SM=Y-YST(K) 

SHAPTF=AQT ( K ) *SM*«3*RQT (K ) *SM»*2+COT ( K ) »SM+DOT ( K ) 

GO TO 50 

30 IF (Y.LT.YST(l) > GO TO 40 

K=NTE-1 
GO TO 20 
40 K = 1 

GO TO ?0 
50 RETURN 

END 


SUBROIJTINt FRELM < X XL ♦ XXT , YL ♦ XLE ♦ XTE , YLE , PI , NCWl * NSW 1 , XEND , DELTA ♦ AFLM 10 


lLPHA,OLtCPCwL) FLM ?0 

C FINDS THE INETIAL COORDINATES OF FREE VORTEX ELEMENTS FLM 30 

COMMON /ALLrB/ XF(40) *YF(40) »ZE(40) »XXE(30) *YYE(30) *7ZE(30) *ZMIN*NFLM 40 

1ELM(11) ,NNELM(12) FLM 50 

COMMON /XPLOT / XMN,YMN,7MN,XMX»YMX»7MX FLM 60 

COMMON /NCTt/ NCT,NC0N,NPT,NC0R(15) tKUl*NFSH(15) »KUC FLM 70 

COMMON /LOG/ FU1 ,FU? f YEND,PXL(5) ,PXT(5) ,PYL(5) FLM BO 

COMMON /AERO/ NAFRO,MAXL*MAXW, ISPAN, ISF. ITRAKE, ISC FLM 90 

COMMON /GENCF / M 1 < 5 ) , NW ( 2 ) ♦ YBREAK ( 5 ) , CH ( 9o ) , S J ( 31 , 3 > t M JW1 < 2 ) ♦ FLM 100 

1MJW?(?) ,WIDTH(5) ,SWFEP(60) *NTS*NC FLM HO 

COMMON /CAMp/ ICAM FLM 120 

COMMON /TIPVX/ XTIP(15»30) ,YTIP(15*30) ,7TIP(15,30) ,NTLM(15) »NTMAX FLM 130 

DIMENSION CPCWL(I) FLM 140 

COMMON /ABC/ PXE(10,40) *PYE(10.40) ,PZE(10,40) ,PXXF(11,?0) , FLM 150 

1PYYE(11,?0) ,P7ZF(11,?0) ♦NMAX*NNMAX»NCONTS FLM 160 


SHT 10 
SHT 20 
SHT 30 
SHT 40 
SHT 50 
SHT 60 
SHT 70 
SHT 80 
SHT 90 
SHT 100 
SHT 110 
SHT 120 
SHT 130 
SHT 140 
SHT 150 
SHT 160 
SHT 170- 


50 RETURN 
END 
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DIMENSION XXL(l), XXT ( 1 ) * YL(1). XLE(l). XTE(l). YLE(l) 

FLM 

170 

ahpi=alpha 

FLM 

ISO 

ALP=Al.PHA*lfio./PI 

FLM 

190 

IE (ALP.LE.15.) AHPI=(?2.5-0.5*ALP)#PI/180. 

FLM 

200 

NSW=NSW 1+1 

FLM 

210 

THT1=PI/(FL0AT(2*NCW1 ) ) 

FLM 

220 

CPC=O.S*(1.-COS(THT1) ) 

FLM 

230 

ZMIN=(XTE(1)-XLE(1) ) *TAN { AHP I ) /I 0 . 

FLM 

240 

SAHPI=SIN(AHPI) 

FLM 

2S0 

CAHPI=COS(AHPI) 

FLM 

260 

REWIND 2 

FLM 

270 

REWIND 4 

FLM 

280 

evaluation of coordinates of leading-edge elements 

FLM 

290 

IF (ISPAN.Eo.O) nswi=nts 

FLM 

300 

IF (ISPAN.Eo.O) NSW=NTS ♦ 1 

FLM 

310 

IF (ISPAN.Eq.d nswi=maxl 

FLM 

320 

IF (ISPAN.EO.l) NSW=MAXW 

FLM 

330 

DO 40 I=l*Nswi 

FLM 

340 

IF (I.EO.NSwi) GO TO 10 

FLM 

350 

XE ( 1) =XTF ( I ♦ 1 ) 

FLM 

360 

YE ( 1 ) =YLE ( I + l ) 

FLM 

370 

ZE ( 1 ) =0 • 

FLM 

380 

XE ( 2) =XLF (I + l) +CPC* ( XTE (I + l )-XLE ( I 1 ) ) 

FLM 

390 

YE(2)=YLF (I*d 

FLM 

400 

ZE (?) =0 . 

FLM 

410 

XE (3) =XLE ( I ) +CPC* (XTE ( I) -XLE ( I ) ) 

FLM 

420 

YE (37 =YLE ( I ) 

FLM 

430 

ZE ( 3 ) =0 • 

FLM 

440 

XE(4)=XLE(I) 

FLM 

450 

YF ( 4 ) =YLE ( I ) 

FLM 

460 

ZE ( 4 ) =0 • 

FLM 

470 

XE(5)=XLE(I)-0.PF*(XTE(I)-XLF(I) ) 

FLM 

480 

IF (I.FO.D XMN=XF (5 ) 

FLM 

490 

YE(5)=YLF(I) 

FLM 

500 

ZE ( 5 ) =0 » 

FLM 

510 

XE(6)=XF(4) ♦0.05*(XTF(I)-XLF(I) ) 

FLM 

520 

YF (6) =YF (4) 

FLM 

530 

ZE ( 6 ) =Z M IN 

FLM 

540 

J = 6 

FLM 

550 

XE(7)=XF(6)+DELTA*CAHPI 

FLM 

560 

YE (7) =YF (6) 

FLM 

570 



V 


ZF (7) r/E (6) ♦ DEL TA«SAHPI 
IF (I.FQ.l) GO TO 30 
J=7 

GO TO 20 
10 CONTINUE 

XE (1)=PXL (Nc*l) *CPC*<PXT<N01>-PXL<NC*1> ) 
YF(1)=PYL(NC+1) 

ZE(1)=0. 

XE (3) = XLE ( I ) ♦ CPCMXTE ( I ) -XLE ( I) ) 

YE { 3 ) =YLF ( I ) 

ZE (3) =0 • 

XE(2)=0.5*(XE(1)+XE(3) ) 

YE(2)=0.5*(YE(1)+YE(3) ) 

ZE ( 2) = 0 • 5'* ( 7F ( 1 ) + 7E ( 3) ) 

XE ( 4 ) =XLE < I ) 

YE(4)=YLE (I) 

ZE (4 ) =0 . 

XE (5)=XLE(I)-0«05#(XTF (I)-xLF (I) ) 

YE(5)=YLE(I) 

ZE (5) =0 • 

XE(6)=XF(4)+o.OS*(XTE(I)-XLF(I) ) 

YE ( 6 ) =YE ( 4 ) 

ZE (6)=ZMIN 

XE { 7 ) =xE (6) + OELTA*CAHPI 
YE(7)=YE{6) 

ZE (7)=ZE (6) +OELTA*SAHPI 
J=7 

20 XE(J+l)=Xt (J) ♦DELTA 

YE <JM )=YE (J) 

ZE(J+1)=ZE(J) 

IF (XF( J+l) .GF.XEND) GO TO 30 

J=J+1 

GO TO 20 

30 NELM(I)=J+1 

K=NELM(I) 

IF (NCONTS.NE.P) WRITE (?) (XE ( J) ,YE ( J) ,ZE ( J) « J=1 ,5) 
40 WRITE (4) K, (XF(J).YF(J).ZE(J)*J=1*K) 

NMAX=0 

DO 50 I=l»Nswi 

50 IF (NMAX.LT.NELM(I) ) NMAX=NELM(I) 

C EVALUATION OF COORDINATES OF WAKE ELEMFNTS 
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YGL = 0.95MY|_E(NSW)-YLE(NSW1) ) 

DO 100 1 = 1 1 MAXW 
XXE(l)aXTt(i) 

YYF(l)=YLt(l) 

Z7E ( 1 ) =0 • 

XXE<2)=XXE<l)+(PxT(l)-PXL<l) )/ 10 . 

YYE{?)=YYt(i) 

Z7E(2)=7Zt (l) 

XXE (3) =XXE (?) ♦ (PXT ( 1 ) -PXL (1 ) ) /10. 

YYE (3) =YYE (?) 

ZZE(3)=77E(?) 

J = 3 

IF (I.FQ.NSW) GO TO 6 0 
GO TO 80 
60 CONTINUE 

IF { (PXT(NC + 1)-PXL{N01) ) .EO.O.) GO TO 80 
XXE ( 1 )=PXL (NC*1 ) + CPC* (PXT (NC+1 )-PXL (NC*1 ) ) 
YYE(1)=PYL(N01) 

Z7F ( 1 ) =0 . 

XXE(2)=XXt <l) ♦YGL*CAHPI 

YYE{2)=YYE(d 

ZZE (2) =Z7E ( 1 ) ♦YG|_*SAHPI 

J=2 

70 IF (XXF ( J> .GE.XFND) GO TO 90 

XXE ( J+l ) =XXE( J) +OELTA*CAHPT 
YYE (J+l )=YYF(J) 

Z?E ( J+l ) =ZZE ( J) ♦OFLTA^SAHPI 

J=Jtl 

GO TO 70 

80 IF (XXE ( J) .GF.XFND) GO TO 90 

XXE (J*l )=XXE(J) *OL 
YYE(J-*-l)=YYE(J) 

ZZE(J*1)=ZZE(J) 

J=J*1 
GO TO 80 

90 NNFLM(I)=J 

K=J 

IF (NCONTS.NE.O) WRITE (2) ( X XE ( J ) * YYF ( J) , Z7F ( J ) ♦ J*1 * 2 > 
100 WRITE (4) K, (XXF(J) *YYE(J) rZZEtJ) ,J=ltK) 

nnmax=o 

IF ( (PXT(NC + l )- pxL (NC*1 ) ) ,FO.O.) NT=MAXL 
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Y 




IF ( (PXT (NC + D-pxL (NC + 1) ) .NE.O.) NT=MAXW 
DO lin I = 1 ♦ NT 

110 IF (NMMAX.LT.NNFL^d) ) NMMAX=NNELM(I) 

WRITE (4) NMAX* NNMAX,7MIM,NC0NTS 
C EVALUATION OF STOE EDGE VORTEX ELEMENTS 

NCW=NCW1-1 
CAHPI=COS (AHPI/P.) 

SAHPI=SIN (AHPI/?, ) 

IF < <PXT<NC*1)_pxL<NC«-1) ) .EO.O.) GO TO 180 
DO 120 1 = 1 * NCW 

XT IP (T, 1 ) =PXL (NC+1 ) +CPCWL (I)* (PXT (NC+1) -PXL (NC+1) ) 
YTIP(I,1)=PYL(NC+1) 

ZTIP(I,1)=0. 

120 CONTINUE 

DO 150 I = 1 » NCW 

FL= (PXT (NC+l ) -PXL. (NC+1) ) /2. 

J=1 

130 XTIP(I»J+1)=XTIP(I*J) +FL*CAHPI 
YtIP (I,J+1)=PYL(NC*1 ) +0.01 

ZTIP(I,J+l)sZTIP(I.J)+FL*SAHPI 

IF (XTIP(ItJ+l) .GF.XEND) GO TO 140 
IF (XTIP(I*J+1).GE.PXT(NC+1)) FL=DELTA 
J=J + 1 
GO TO 130 
140 NTLM(I)=J+1 
150 CONTINllE 

DO 160 I = 1 ♦ NCW 
KK=NTLM(I) 

WRITE' (6+200) (XTIP(I+J) »J=1 +KK) 

WRITE (6,280) (YTIP ( I ♦ J) , J=1 ,KK) 

WRITE (6,280) (7TIP ( I , J) , J=1 ,KK) 

160 CONTINUE 
NTMAX=0 

DO 170 I = 1 » NCW 

IF (NTMAX.LT.NTLM(I) ) NTMAX=NTLM { I ) 

170 CONTINUE 
180 CONTINUE 

xlnt=xend-xmn 

XMX=XEND 

XMX=XEND+0.20«XLNT 

YMN=0. 
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YMX=PYL <NC*1 ) 

ZMN=-PYL(NC + d»o.6667 
ZMX=PYL (NC+1)#0.6667 
IF (NCONTS.FO.O) GO TO ?30 

C READS LOCATION OF LEADING-EDGE ELEMENTS FROM INPUT DATA CARDS 

REWIND 2 
REWIND 4 

READ (5,300) (NFLM ( I ) , 1=1 ,MAXL) 

DO 190 I=1*MAXL 
K=NELM(I) 

READ (5,290) ( (XI , J=1 ,5) , (XE ( J) , J=6,K) ) 

READ (5,290) ( (Y1,J=1*5) * (YE(J) » J=6»K) ) 

READ (5,290) ( ( Z 1 , J = 1 , 5 ) , ( 7E ( J) ,J=6,K) ) 

READ (?) <XE(J) ,YE(J) ,ZF_(J) ,J=1,5) 

190 WRITE (4) K, ( xE(J) ,YE (J) ,ZE(J) *J=1,K) 

C READS LOCATION OF WAKE ELEMENTS FROM INPUT DATA CARDS 

READ (5*300) (NNELM(I) ,I=1,MAXW) 

DO 200 I=1»MAXW 
K=NNELM(I) 

READ (5*290) ( (Xl»J=l,2) * (XXE(J) » J=3»K) ) 

READ (5,290) ( (Y1,J=1*2) « (YYE(J) * J=3*K) ) 

READ (5,290) ( (71,J=1»2) , (ZZE (J) * J=3»K) ) 

READ (?) (XxE(J) ,YYE(J) ,77E(J) ,J=1,2) 

200 WRITE (4) *, (XXE(J) ,YYE(J) ,7ZE(J) ,J=1,K> 

WRITE (4) NMAX,NNMAX,ZMIN,NCONTS 

IF ( (PXT(NC*1)-pxL(MC*1) ) .EQ.O.) GO TO 220 

READ (5,300) (NTLM(I) ,1=1, NCW) 

DO 210 1=1, NCW 
K=NTLM(I) 

READ (5,290) (XTIP ( I , J) , J=1 ,K) 

READ (5,290) (YTTP(I,J) ,J=1,K) 

READ (5,290) (ZTIP ( I , J) , J=1 ,K) 

210 CONTINUE 
??0 CONTINUE 
230 WRITE (6,310) 

REWIND 4 
DO 250 I = 1 * MA XL 

READ (4) K, (XE(J) ,YE(J) ,7E(J) ,J=1,K) 

DO 240 J=1»K 
PXE(I,J)=XE(J) 

PYE(I,J)=YE(J) 
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?40 

250 


260 

270 

C 
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C 


10 

20 


c 


V 
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FLMP400- 


SUBROUTINE SPLINE (N,X,Y,A,R,C*D) 

SPL 

10 

CUBIC RPLINF interpoi atton 

SPL 

20 

DIMENSION S(l?E) ,H(2?) *CA(?2) *X(1) ,Y(1) 

SPL 

30 

DIMENSION A ( i ) ,R(1) ,C(1) ,D(1) 

SPL 

40 

1 = 1 

SPL 

50 

NI =N* 1 

SPL 

60 

N1=N-1 

SPL 

i 70 

H { N I ) =0 , 

SPL 

80 

H ( 1 ) =X ( 3 ) ~X ( 2 ) 

SPL 

i 90 

H(2)=-X(3)+X(l) 

SPL 

100 

H(3)=X(2)-X(D 

SPL 

110 

DO 10 K=4 * N 

SPL 

120 

H (K) =0. 

SPL 

130 

DO 20 K=1*N 

SPL 

140 

S(K)=-H(K+1)/H(1) 

SPL 

150 

NJ=N-1 

SPL 

160 

DO 70 I = 2 » N 

SPL 

170 

IF (I.EQ.N) GO TO 30 

SPL 

180 

H(NI)*-6,*( ( Y ( I ♦ 1 ) "Y ( I ) ) / ( X ( I ♦ 1 ) ~X (I) ) — ( Y ( I ) 

-Y(I-l) )/{X(I>-X(I-l) )SPL 

190 

) 

SPL 

POO 


P7F ( I , J) =ZE ( J) 

CONTINUE 
CONTINUE 
DO 270 1 = 1* MAXW 

READ (4) K, (XXE ( J) ,YYE (J) ,77E ( J) *J=1 ,K) 

DO 260 J=1*K 

PXXE(I,J)=XXE(J) 

PYYE(I.J)=YYE(J) 

PZ7F (T , J) =ZZE ( J) 

CONTINUE 

CONTINUE 

RETURN 

FORMAT (1H0,5X,RF10.5) 

FORMAT (RF10.4) 

FORMAT < 1 0 1 p > 

FORMAT ( 1 8H ENP OF TNPIJT DATA,//) 

END 
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30 

40 


50 

60 

70 

60 . 


GO TO 40 
H (N I ) =0 , 

00 60 J=1 »N 
H ( J) =0 • 

IF (I.FO.N) 00 TO 50 

IF (J.LT. (1-1) .OR.J.GT. (1*1) ) GO TO 60 
H(I-1)=X(I)-X(I-1> 
H(I)=?.*(X(I + l)-x(I-l) } 
H(I+1)=X(I*1)-X(T) 

GO TO 60 

H (N-2) =X (N) -x (N — 1 ) 

H(N-l)=-X(N)+X(N-2) 

H (N) =X (N-l ) -X (N-?) 

continue 
1 1 = I 

CALL VMSEQN (NJ . 1 1 ,H ,S , CA ) 

NJ=NJ-1 
CONTINUE 
DO 80 1 = 1 , Nj 

A{I)=(S(I + l)-S(T))/( 6 •* ( X ( I ♦ 1 ) -X ( I ) ) ) 
P(I)=S(I)/2. 


SPL ?10 
SPL 220 
SPL 230 
SPL 240 
SPL 250 
SPL 260 
SPL 270 
SPL 280 
SPL 290 
SPL 300 
SPL 310 
SPL 320 
SPL 330 
SPL 340 
SPL 350 
SPL 360 
SPL 370 
SPL 380 
SPL 390 
SPL 400 
SPL 410 


C ( I ) = ( Y ( !♦ 1 ) — Y ( I ) ) / ( X (!♦!)— X(I) )— (X(I+1)— X (I) )*(2,*S(I)*S(I*1) J/6.SPL 420 


D { I )=Y ( I ) 


SPL 430 


continue 


SPL 440 


RETURN 


SPL 450 


ENO 


SPL 460- 


OVERLAY (LE VSR « 2*0) 


PLT 

10 

PROGRAM APLOT 


PLT 

20 

SETS UP DIMENSIONS FOR PLOTTING LEADING-EDGF AND WAKE 

elements 

PLT 

30 

COMMON D ( 1 ) 


PLT 

40 

COMMON /ALL 1/ NSW »NSW 1 « NCw 


PLT 

50 

COMMON /ABC./ PXF ( 1 0 , 40 ) ♦ PYE ( 1 0 • 40 ) ,P7E ( 1 0 , 40 ) *PXXF ( 1 1 

,20) , 

PLT 

60 

lPYYEfll .20) , P77F ( 1 1 » 20 ) . NMAX * NNMAx * NCONTS 


PLT 

70 

COMMON /AERO/ N AFRO , MAXL . MAX W * ISPAN , ISF . ITRAKF • ISC 


PLT 

80 

nsw=maxw 


PLT 

90 

NSW 1 =MAXL 


PLT 

100 

MXE=1 


PLT 

110 

MYE=MXE*NSW1*40 


PLT 

120 


X 
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M7E=MYF+NSW1*40 PLT 

MNELM=MZE+NSW1»40 PLT 

HNEXT=MNELM^nswi pl T 

C MNEXT=3*NSW*NMAX-3*NMAX*NSW PLT 

CALL PLOTT (D(MxE) *n(MYF) ,D(MZE) ,D(MNELM) ,NSW 1 * 1 ) PLT 

MXXE=1 PLT 

MYYE=MXXE*Nsw* (NNMAx+2) PLT 

M7ZE=MYYE*Nsw* (NNMA x+2) PLT 

MNNELH=M7Zt + N?W« (NNMAX + 2) PLT 

MNNEXT=MNNELM*NSW PLT 

C MNNEXT=3*NSw»(NNMAX+2) *NSW+1 PLT 

CALL PLOTT (P<MXXE) *D(MYYE) *D(MZ7E) ,D(MNNELM) ,NSW,2) PLT 

MTXE=1 PLT 

MTYE=MTXE«-NCW*40 PLT 

MTZE=MTYE+NCW*40 PLT 

MTELM=MT7E. + NCW#40 PLT 

HTEXT=MTELM+NCW PLT 

C MTEXT=3*NCW»40*NCW*1 PLT 

CALL PLOTT (D (MTXE) *D (MTYF) *D (MTZE) *D (MTELM) *NCW*3) PLT 

RETURN PLT 

FND PLT 


SUBROUTINE PLOTT ( XE » YE * ZE , NNM , NS , LS ) PTT 

MANIPULATES LEAOING-FDGE AND WAKE ELEMENTS COORDINATES IN A FORM PTT 
SUITABLE FOp PLOTTING PTT 

COMMON /ALLI/ NSW,NSWl*NCw PTT 

COMMON /TIPVX/ XTIP(15»30) ♦YTIP(15,30) fZTIP(15,30) ,NTLM(15) PTT 

COMMON /LOC/ FU1,FU?,XEND,PXL(5) ,PXT(5) ,PYL(5) PTT 

COMMON /GENCF/ M 1 ( 5 ) f NW { 2 ) , YBREAK ( 5 ) .CH ( 9o ) , S J ( 31 , 3 ) ,M JW1 ( 2 ) , PTT 

1M JW2 (2) ♦ WIDTH (5) , SWEEP (60) ,NTS,NB PTT 

COMMON /AE.RO/ NAERO ,MAXL ,MAXW . ISPAN, ISF , ITRAKE, ISC PTT 

COMMON /XPLOT/ XMN f YMN,ZMN,XMX*YMX,ZMX PTT 

COMMON /ABC/ PXE (10,40) *PYE( 10*40) *PZE (10,40) ,PXXE(11*?0) * PTT 

1PYYE(11»20) *P77F(11«20) *NMAX *NNMAX *NCONTS PTT 

COMMON /ALLRB/ AX ( 2 1 0 ) * 7MIN , NELM ( 1 1 ) , NNELM ( 1 2 ) PTT 

DIMENSION NNM(l) f XE(NS.l), YE(NS,1), ZE(NS,1), LARY ( 14 ) * LABZ(14)PTT 
DIMENSION LABX(14) PTT 

DATA LABX/6»6H * 6HY VS 7»6*6H ,?H / PTT 

DATA LABY/6«6H ,6HX VS Y,6*6H *?H / PTT 
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10 

20 

30 
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in o 


in 

20 


30 


40 

0 


60 


70 


DATA LAB7/6*6H »6HX VS Z»6*6H ,?H / 

PTT 

180 

NSW=MAXW 

PTT 

190 

NSW 1 = MAXL 

PTT 

200 

IF (LS.F0.2) 00 TO 30 

PTT 

210 

IF (LS.E0.3) 00 TO 60 

PTT 

220 

DO 20 I=l*Nswi 

PTT 

230 

KK=NELM(I) 

PTT 

240 

DO 10 J=1*KK 

PTT 

250 

XE ( I * J) =PXE ( I f J) 

PTT 

260 

YE(I, J)=PYt (l f J) 

PTT 

270 

ZE ( I »J) =PZE ( I * J) 

PTT 

280 

continue 

PTT 

290 

NNM (I ) =KK 

PTT 

300 

NC=4 

PTT 

310 

GO TO 90 

PTT 

320 

continue 

PTT 

330 

DO 50 I=1»NSW 

PTT 

340 

KK=NNFLM ( I ) 

PTT 

350 

DO 40 J=1*K« 

PTT 

360 

XE(I,J)=PXXF(I,J) 

PTT 

370 

YF(I,J)=PYYE(I,J) 

PTT 

380 

ZE(I,J)=pZZE(I,J) 

PTT 

390 

CONTINUE 

PTT 

400 

NNM ( I ) =KK 

PTT 

410 


420 

NC=0 

PTT 

430 

GO TO 90 

PTT 

440 

CONTINUE 

PTT 

450 

IF (APS (PXT (NP+1 ) -PXL (NR + 1 ) ) ,!_E. 0.00001 ) PETURN 

PTT 

460 

DO 80 1=1 *NCW 

PTT 

470 

KK = NTLM ( I ) 

PTT 

480 

DO 70 J=1»K« 

PTT 

490 

XE(I*J)=XTIP(I,J) 

PTT 

500 

YE (I,J)=YTlP(I, J) 

PTT 

510 

ZE(I*J)=ZTIP(I,J) 

PTT 

520 

CONTINUE 

PTT 

530 

XE ( I *KK+1 ) =XMN 

PTT 

540 

YE(I»KK+1)=YMN 

PTT 

550 

ZE ( I * KK+ 1 ) =ZMN 

PTT 

560 

XE(I f KK*2)=XMX 

PTT 

570 

YE(I*KK*2)=YMX 

PTT 

580 




166 



V 


7E (I,KK>2)=7MX PTT 590 

80 NNM ( I ) =KK + 2 p TT 600 

NS1=N5 PTT 610 

GO TO 120 PTT 620 

90 DO 110 L=2»NS PTT 630 

I= L-1 PTT 640 

K=NNM(L)-NC pTT 650 

DO 100 J=1»K PTT 660 

KK= J+NC PTT 670 

XF(I, J)=XE (l ,KK) PTT 6R0 

YE(I,J)=Yt <L,KK) PTT 690 

100 ZE ( I , J) =ZE (L ,KK ) PTT 700 

XE(I,K*1)=XMN PTT 710 

YE(I,K*1)=YMN PTT 720 

ZE ( I *K + l ) =ZMN PTT 730 

XE(I,K*2)=XMX PTT 740 

YE(I,K + 2)=Ymx PTT 750 

ZE ( I *K*2) =Zmx PTT 760 

110 NNM ( I ) =K + 2 PTT 770 

NS1-NS-1 PTT 780 

120 CONTINUE PTT 790 

CALL LNPLOT < XF , yF , NNM , NS 1 , NS , LABY) PTT 800 

CALL LNPLOT ( XF , ZE , NNM , NS 1 , NS , LABZ ) PTT 810 

CALL LNPLOT ( YE ,ZF ,NNM ,NS1 ,NS , LABX > PTT 820 

RETURN PTT 830 

END PTT 840- 


C 


SUBROUTINE LNPLOT ( X ,Y ,NELM ,M ,MMAx , LABEL ) LNP 

GENERATES Plot on LINE PRINTER (WRITTEN By KU COMPUTATION CENTER) lnp 
DIMENSION NELM(MMAX). X(MMAX»1), Y(MMAX.l), ALINE(lOl), YAX IS ( 1 0 1 ) LNP 
1* SYM ( ?0 ) » LABFL(l) LNP 

COMMON /TAPE/ ITEST,IGOOO,SFAC(10) ,KU3,NSTOP LNP 

DATA SYM/lHi, !H?,lH3*lH4,lH5,lH6f 1H7,1H8,1H9,1H0*1HA,1HB,1HC*1HD,1LNP 
1HE*1HF, 1HG,1HH,1HI» 1HJ/ LNP 

DATA YAXIS/lHI,9»lH-,lHI,9»lH-,lHI,9*lH-,lHI,9«lH- f lHlf9*lH-*lHl,9LNP 

l*lH-,lHI»**lH-,lHl,9»lH-,lHI,9elH-,lHI,9#lH-,lHI/ LNP 

DATA BLANK, UP, PLUS/1H ,1HI,1H+/ LNP 

XMAX=X (1*1) LNP 

XMIN=X(1,1) LNP 
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YMAX=Y(1»1) 

YMIM=Y(1»1) 

DO 10 I = 1 * M 
N=NELM ( I ) 

DO 10 J=1 *N 

IF (X (I .J> .6T.XMAX) X M AX = X ( I * J ) 

IF (X (I.J) .LT.XMIN) XMIN*X(T*J) 

IF (Y(I.J> .GT.YMAX) YMAX=Y(I»J) 

IF (Y(It J) .LT.YMIN) YMIN=Y(I»J) 

10 CONTINUE 

KEY = 1 
ZMAX=XMAX 

zmin=xmin 

20 RAN6F=7MAX«7MIN 

IF (RANGE. Eq. 0.0) PANGE=ZMAX/2. 
SCALF=1.0E-9 
30 SCALF=10.*SCALF 

IF (SCALE.LT. RANGE) GO TO 30 
ZMIN=7MIN/SCALE 

zmax=znax/scale 

MIN=20.»(ZMin-0.025) 

MAX=20.0* (ZMAX* 0.025) 
BOTTOM=0.05*FLOAT (MIM) 

TOP=0.05»FLOAT (MAX) 

RANGE=0. 1" (TOP-BOTTOM) 

IF (RANGE. EQ. 0.0) RANGE = 0 .1 #( TOP/2. ) 
40 IF (BOTTOM. LE.7MIN) GO TO 50 

BOTTOM=ROTTOM-PANGE 
GO TO 40 

50 IF (T0P.GE.ZMAX) GO TO 60 

top=top+range 

GO TO 50 
60 CONTINUE 

IF (KFY.FQ.2) GO TO 70 

KEY=2 

ZMAX=YMAX 

zmin=ymin 

YINC=0.01* (TOP-ROTTOM) 
XINC=YINC*SCALE 

xbot=rottom*scalf 

GO TO 20 


LNP 130 
LNP 140 
LNP 150 
LNP 160 
LNP 170 
LNP 180 
LNP 190 
LNP 200 
LNP 210 
LNP 220 
LNP 230 
LNP 240 
LNP 250 
LNP 260 
LNP 270 
LNP 280 
LNP 290 
LNP 300 
LNP 3io 
LNP 320 
LNP 330 
LNP 340 
LNP 350 
LNP 360 
LNP 370 
LNP 380 
LNP 390 
LNP 400 
LNP 410 
LNP 420 
LNP 430 
LNP 440 
LNP 450 
LNP 460 
LNP 470 
LNP 480 
LNP 490 
LNP 500 
LNP 510 
LNP 520 
LNP 530 
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V 


70 


00 

90 


100 

no 


120 

130 


CONTINUE 

LNP 

540 

YINC=0.0125« (TOP-POTTOM) 

LNP 

550 

ylow=top*yinc 

LNP 

560 

YINC=2.*YINC 

LNP 

570 

WRITE (6 * 15o ) 

LNP 

580 

IF (ITEP.GE.KU3) WRITE (ITFST,150) 

LNP 

590 

KEY=5 

LNP 

600 

continue 

LNP 

610 

DO 90 I J = 2 » 1 0 1 

LNP 

620 

ALINE(IJ)=BLANK 

LNP 

630 

yhigh=ylow 

LNP 

640 

YLOW=YHIGH-YINC 

LNP 

650 

YHS=SCALE*YHIGH 

LNP 

660 

yls=scale*ylow 

LNP 

670 

DO 110 I=1»M 

LNP 

680 

N=NELM ( I ) 

LNP 

690 

DO llo J= 1 » N 

LNP 

700 

IF (Y (I * J) .GT.YHS.OR.Y (I * J) .LE.YLS) GO TO 110 

LNP 

710 

INDEX={X (1»J)-XR0T)/XINC 

LNP 

720 

INDEX=INDEX+l 

LNP 

730 

IF (INDEX. Gt.101) INDEX=101 

LNP 

740 

IF (ALINE (INDEX) .NE.RLANK) GO TO 100 

LNP 

750 

ALINE(INDEX)=SYM<I) 

LNP 

760 

GO TO 110 

LNP 

770 

ALINE ( INDEX ) sPLUG 

LNP 

780 

CONTINUE 

LNP 

790 

AL INE ( 1 ) =UP 

LNP 

800 

IF (KEY.NE.5) GO TO 120 

LNP 

010 

tpp=top»scalf 

LNP 

820 

WRITE (6*160) TPP*ALINE 

LNP 

830 

IF (ITFR.GE.KU3) WRITE (lTESTtl60) TPP» ALINF 

LNP 

840 

GO TO 130 

LNP 

850 

WRITE (6,170) ALINE 

LNP 

860 

IF (ITEP.GE.KU3) WRITE (ITFST.170) ALINE 

LNP 

870 

continue 

LNP 

800 

KEY=KEY-1 

LNP 

890 

IF (KFY.EO.O) kfy=f 

LNP 

900 

TOP=TOP-YlNC 

LNP 

910 

IF (TOP. GE. BOTTOM) GO TO 00 

LNP 

920 

IF (KFY.Nt.4) GO TO 00 

LNP 

930 

WRITE (6,200) YAXIS 

LNP 

940 
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IF {ITFP.GE.KU3) WRITE (ITFST.200) 

YAXIS 

LNP 950 


xinc=io.o*xinc 


LNP 960 


ALINE(l)=XBOT 


LNP 970 


DO 140 1=2*11 


LNP 9B0 

140 

ALINE(I)=ALINE(T-1 ) ♦ X INC 


LNP 990 


WRITE (6»1B0) (ALINF(I) .1=1*11) 


LNP1000 


IF (ITEP.GE.KU3) WRITE (ITEST.180) 

(ALINE(I) ,1=1,11) 

LNP1010 


WRITE (6,190) (LABEL(I) .1=1.14) 


LNP1020 


IF (ITER.GE.KU3) WRITE (ITFST.190) 

(LABEL ( T ) ,1=1,14) 

LNP1030 


RETURN 


LNP1040 

C 



LNP1050 

150 

FORMAT ( 1 HI ,/) 


LNP1070 

160 

FORMAT (1H ,F10.3*1X,101A1) 


LNP1080 

170 

FORMAT ( l.H .11X.101A1) 


LNP] 090 

180 

FORMAT (1H ,5X»11F10.3) 


LNP1100 

190 

FORMAT (1H ,//,?0X,13A6,A?) 


LNP1110 

200 

FORMAT ( 1 H .11X.101A1) 


LNP1120 


END 


LNP] 130- 


OVERLAY (LEVSP , 3, 0 ) 

SLN 

10 

PROGRAM SOLN 

SLN 

20 

SETS UP DIMENSIONS FOR SOLVING THE STRENGTHS 

OF WING AND LEADING- SLN 

30 

EDGE VORTEX SYSTEM 

SLN 

40 

COMMON D { 1 ) 

SLN 

50 

COMMON /ALL]/ NSW.NSWl ,NCW,NWNG,NCPTTL 

SLN 

60 

LC = 1 

SLN 

70 

LTHETP=LC*Nswi 

SLN 

80 

lxte=lthetp+nswi 

SLN 

90 

LXLE=LXTE*Nsw 

SLN 

100 

LYLE=LXLE+Nsw 

SLN 

no 

LCONS=LYLE*NSW 

SLN 

120 

LCTT=LC0NS*NSW1 

SLN 

130 

LCPWL=LCTT+NSWl 

SLN 

no 

LCPSW=LCPWL»NCW 

SLN 

150 

LSI=LCPSW+NSW1 

SLN 

160 

LSN=LSI +NCW 

SLN 

170 

LXCP=LSN^NCw 

SLN 

180 

lycp=lxcp*ncpttl 

SLN 

190 

LXN=LYCP*NCPTTL 

SLN 

200 



c 

c 


LYN=IXN+2*NWNG sln 
LC0NI=LYN*2*NWNG sln 
LCONJ=LCONUnWNG sln 
LCONK=LCONJ+NWMG sln 
LCI=LCONK+NwnG SLN 
LCJ-LCI +NWNg SLN 

LCK=LC J+NWNg SLN 

LDUMY=LCK*N W ng SLN 
LNEXT=LDUMY+8«NWNG SLN 
LNEXT = ?0*NWNG-t-10*NSW*3*NCW-6 SLN 
MNEXT=LCJ* (NWNG+1 ) **?/4 SLN 
MNEXT= (NWNG+l) *#2/4*10*NWNG+10»NSW*3*NCW-6 SLN 


CALL AEROUN (NWNG,0(LC) »D (LTHETP) ,D(LXTE) *D (LXLE) ,D(LYLE) ,D(LCONS)SLN 
1 » D ( LS I ) »D(LsN) ,D(LXCP) fD(LYCP) ,D(LXN) tD(LYN) tD(LCONl) ,D(LCONJ) »D (LSLN 
2CONK ) ,D(LCI ) ,D(LCJ) , 0 (LCK ) ,D(LDUMY) »D (LCTT) ,D(LCPWL) ,D{LCPSW) ) SLN 

RETURN SLN 

END SLN 


210 

220 

230 

240 

250 

260 

270 

280 

290 

300 

310 

320 

330 

340 

350 

360 

370- 


C 


C 


SUBROUTINE AERODN < NWNG , C , THFTP , XTE , XLE ,YLE » CONS ,SI , SN , XCP ,YCP , XN , AER 


1YN,CONI,CONJ,CONK,CI , CJ,CK, Dummy, CT,CPCWL,CPSW1) AER 

SOLVES FOR THE STRENGTHS OF WING AND LEADING-EDGE VORTEX SYSTEM AFP 
COMMON /TAPE/ ITFST,IGOOD,SFAC(10) ,KU3,NSTOP AER 

COMMON /LEFLP/ YLEF ( 1 0 ,2 ) , XNF ( 1 0 > , YNF < 1 0 ) ,ZNF ( 1 0 ) , XLF ( 1 0 *4 ) , AER 

1YLF<10,4) »SLP1 (10) , SS,CS, ITERS, ZBDYV (200) ,7BDY(200) AER 

COMMON /ALLl/ NSW, NSW 1 ,NCW, IWNG,NCPTTL AER 

COMMON /ALLRA/ AA (17) ,SINA,AB (6) ,BSQD4P AER 

COMMON /GM/ ITEP,L1,L2,L3,L4,L5,L6,L7,L8 AER 

COMMON /NCTT/ NCT,NC0N,NBT,NC0R(15) ,KU1,NFSH(15) ,KUC,FLG(10) AER 

COMMON /AERO/ NAEPO,MAXL,MAXW,ISPAN,ISF,lTRAKE,lSC AER 

COMMON /GENCF/ Ml (5) ,NW (2) ,YBREAK (5) ,CH (90) ,SJ (31 ,3) ,MJW1 (2) , AER 

1M JW2 ( 2 ) , W IUth (5) ,SWEEP(60) , NTS »NC AER 

COMMON/CAMB/ I CAM , IM ( 1 0 ) , XT ( 1 0 , 21 ) , AAM ( 1 0 , 20 ) ,BBM ( 1 0 , 20 ) » AER 

1CCM (10,20) ,DDM( 10,20) ,YT(10) ,7BDX(200) ,ZBDXV(200) AER 


DIMENSION C(i), THFTP(l), XTE(l), XLE(l), YLE(l), CONS(l), SI(1), AER 
1SN(1), XCP(l), YCP(l), DUMMY ( 1 ) , CONI ( 1 ) , CONJ(l), CONK(l), CI(1),AER 
2 CJ(1), CK(i) f OT ( 1 ) , CPCWL(l), CPSWl(l), XN(NWNG,2), YN(NWNG,2) AER 

REWIND 1 AER 
REWIND 2 AER 


10 

20 

30 

40 

50 

60 

70 

80 

90 

100 

110 

120 

130 

140 

150 

160 

170 

180 

190 

200 

210 
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10 

C 


REWIND 3 AER 

CALL SKIPR (1,7) AER 

READ (1) (C(I) ,I=1,NSW1) AER 

READ (1) (THETP(I) ,I=1,NSW1 ) AER 

READ (1) (XTE(I) ,XLE(I) ,YLF(I) ,I=1,NSW) AER 

CALL SKIPR d,i) AER 

READ (1) (CONS (I) ,1=1 ,NSW1) AER 

READ (1) (Si (I) ,SN(I) ,I=1,NCW> AER 

READ (1) (XCP(I) ,YCP(I) ,I=1,NCPTTL) AER 

READ (1) ( (XN(I,J) ,YN(I,J) ,J=1,2) ,I=1,NWNG) AER 

READ (1) (CT(I) ,I=1,NSW1) AER 

READ (1) (CPCWL(I) *I=1»NCW) AER 

CALL SKIPR (1,?) AER 

RFAD (1) (CPSW1 (I) ,T=1,NSW1) AER 

INFLUENCE COEFFICIENT MATRIX EVALUATION AER 

L 1 =1 AER 

L2=L1*NWNG AER 

L3=L2+NWNG AER 

L4=L3+NWNG AER 

L5=L4+NWNG AER 

L6=L5+NWNG AER 

L7=L6+NWNG AER 

L8=L7+NWNG AER 

NCON=0 AER 

NCT=0 AER 

DO 10 i=i»ncpttl aer 

ZCP=0. AER 

CALL VDTWNG (C,THETP,XCP ( I ) , YCP < I) , 7CP , XN, YN, XTE , YLE, CONS , DUMMY (L 1 AER 
1) ,DUMMY(L2> , DUMMY ( L3 ) , DUMMY (L4) , DUMMY (L5) , DUMMY (L6) ,DUMMY(L7) ,DUMMAER 
2Y(L8) , CONI, CONJ, CONK, SI, NSW1,NCW,NWNG) AER 

WRITE (?) (CONK <J) , J=1 ,NWNG) AER 

CALL VDTFRE ( xCP ( I ) , YCP ( I ) , ZCP , C I , CU , CK , NSWl , BSQD4P , XLF , YLE ) AER 

WRITE (3) (CK(J) ,J=1,MAXL) AER 

CONTINUE AER 

gama-fvaluation aer 

REWIND ? AER 

REWIND 3 AER 

READ (?) (CONI (I) ,I=1,NWNG) AER 

nwngi=nwng+i aer 

NWNB=NWNG+MAXL aer 


220 

230 

240 

250 

260 

270 

280 

290 

300 

310 

320 

330 

340 

350 

360 

370 

380 

390 

400 

410 

420 

430 

440 

450 

460 

470 

480 

490 

500 

510 

520 

530 

540 

550 

560 

570 

580 

590 

600 

610 

620 
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20 


30 


40 


50 

C 


60 


70 


NWN81=NWNB+l 

READ (3) (CONI (I) ,I=NWNG1 ,NWNB) 

coni (NwNBi)=(siNA-7Bnx(i)*AB(i) ) 

IJ=1 

DO 20 I=1*NWNB 
C J ( I ) s-CONI (1*1) /CONI ( 1 ) 

IJ=2 

N J=NWNB- 1 
CONTINUE 

READ (2) (CONI (I) tI=lfNWNO) 

READ (3) (CONI (I) ,I=MWNG1,NV/NB) 

CONI (NWNR1) = (SINA-78DX(IJ)*ARU) ) 

IF (IJ.GT.NwNG) CONI ( NWNB 1 ) = ( SIN A-CT { I J-NWNG ) -ZBDX ( I J) #AB ( 1 ) ) 
CALL VMSEQN (NJ,IJ, CONI, CJ, CONK) 

IJ=IJ*1 
N J=N J- 1 

IF (IJ.LE.NWNB) GO TO 30 
WRITE (6, BO) 

IF (ITER.CE.KU3) WRITE (lTESTt80) 

DO 40 I=l»Nswi 
DO 40 J=1 »NCW 
NP=(I-l)*NCw+J 

IF (ITER.OE.KU3) WRITE (ITEST»90) CPCWL ( J) ,CPSW1 ( I ) ,CJ (NP) 
WRITE (6,90) CPCWL ( J) fCPSWl (I) »CJ(NP) 

WRITE (6 , 1 Oo ) 

IF (ITER.Ot.KU3) WRITE (ITEST,100) 

DO 50 I=ltMAXL 
J=NWNG+ I 
FLG(I)=CJ(J) 

IF (ITER.GE.KU3) WRITE (ITEST.90) CPSW1 ( I ) ,CJ ( J) 

WRITE (6,90) CPSW1 (I) ,CJ(J) 

EVALUATION OF SFCTIONAL LEADING-EDGE THRUST 
CALL THPST (CJ,CONI,CONJ) 

NERR=0 

DO 60 I=1»MAXL 

IF (ABS(CONJ(I)-CT(I) ) ,GE. (1.0E-10) ) NERR=1 
IF (NERR.tQ.l) WRITE (6,110) 

GMSUM=0. 

DO 70 I=2»MAXL 
KS=NWNG ♦ I 

GMSUM=GMSUM+CJ(KS) 


AER 630 
AER 640 
AER 650 
AER 660 
AER 670 
AER 680 
AER 690 
AER 700 
AER 710 
AER 720 
AER 730 
AER 740 
AER 750 
AER 760 
AER 770 
AER 780 
AER 790 
AER 800 
AER 810 
AER 820 
AER 830 
AER 840 
AER 850 
AER 860 
AER 870 
AER 880 
AER 890 
AER 900 
AER 910 
AER 920 
AER 930 
AER 940 
AER 950 
AER 960 
AER 970 
AER 980 
AER 990 
AER1000 
AER1010 
AER1020 
AER1030 
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C . AER1040 

REWIND 2 AER1050 

WRITE (2) <CJ(I) ,I=1,NWNB) AER1060 

WRITE (7) GMSUM AER1070 

C AERl 080 

RETURN AERl 090 

C AERl 100 

80 FORMAT (1H1.//.2 2H WING VOPTEX STRENGTHS ./, 22H a****************** AERl 1 20 
1*».//.29H X/C 2Y/B G AMA Y , /♦ 29H *»* «#** AER1130 

2 #*#«*) AERl 140 

90 FORMAT <1H ,3F10.5) AER1150 

100 FORMAT ( 1 H ,//,32H LEADING-EDGE VORTICES STRENGTHS ,/♦ 3lH **##*<mh»*AER1160 

1 •»•»*«•*»*«*#*»•»»*******,//, 2 OH 2Y/B CAPGAMA./.20H ***# AER1170 

2 «##»#«#) AERl 180 

110 FORMAT ( // ♦ 34H ERROR IN SECTIONAL CT CALCULATION ,/, 1 0F1 0 . 5 ) AER1190 

END AERl 200- 


SUPROUTINE THRST (SGM.CONK.CT) 

C EVALUATES SECTIONAL LEADING-EDGE THRUST COEFFICIENTS 

COMMON /ALLl/ NSW , NSW 1 , NCW , NWNG 

COMMON /AERO/ N AFRO , MAXL , MAXW , ISPAN. ISF, ITRAKE* ISC 
COMMON /LEFLP/ YLEF(10,2) ,XNF(10) ,YNF(10) ,ZNF(10) ,XLF(iO t 4) , 
1 YLF (10*4) *SLP1 (10) .SSfCS«ITFRS*ZBDYV(200) ,ZBDY(200) 

COMMON /ALLRA/ AA (17) , S INA , COSA , SWPLE • AB .BETA2 , AC (5 ) .PI 
COMMON/CAMB/ ICAM.IM(IO) .XT (10*21) ,AAM( 10,20) ,BBM(10,20) » 
1CCMU0.20) »DDM (10*20) «YT (10) ,ZBDX(200) ,ZBDXV(200) 

DIMENSION SGM(l), CONK(l), CT(1) 

AM2=1.-BETA2 
FCOS=COS (SWPLE ) 

FTAN=TAN(SWPLE) 

VAR1=FL0AT (NCW) ffSQRT (FTAN*FTAN+BETA2) 

VAR2=SORT (l,-AM?*FCOS«FCOS) 

REWIND 2 
REWIND 3 

CALL. SKIPR (2, NWNG) 

CALL SKIPR (3, NWNG) 

DO 30 I=1»MAXL 
WL = 0 , 

READ (2) (CONK (J) ,J=1 .NWNG) 


THR 

10 

THR 

20 

THR 

30 

THR 

40 

THR 

50 

THR 

60 

THR 

70 

THR 

80 

THR 

90 

THR 

100 

THR 

110 

THR 

120 

THR 

130 

THR 

140 

THR 

150 

THR 

160 

THR 

170 

THR 

180 

THR 

190 

THR 

200 

THR 

210 

THR 

220 





V 


V 

DO 10 J=1»NWNG 

THR 

230 

WL=WL+CONK ( J) *SGM ( J) 

THR 

240 

READ (3) (CONK ( J) , J=l t MAXL) 

THR 

250 

DO 20 J=1*MAXL 

THR 

260 

JJ=NWNG+J 

THR 

270 

WL=WL*CONK(J)«sgM(JJ) 

THR 

280 

THPT1= (WL* (SINA-7BDX (NWNG+1 ) *COSA) ) /VAR1 

THR 

290 

CT (I ) = (PI/2. ) »VAR2«THRT1*THRT1/FC0S 

THR 

300 

RETURN 

THR 

310 

END 

THR 

320- 


OVERLAY ( LEvSP *4*0) 

LOD 

10 

PROGRAM LOADS 

LOD 

20 

SETS UP DIMENSIONS FOR EVALUATING AERODYNAMIC CHARACTEpSTICS 

LOD 

30 

COMMON D ( 1 ) 

LOD 

40 

COMMON /ALLI/ NSWfNSWl *NCW»NWNG 

LOD 

50 

COMMON /GENCF/ Ml (5) ,NW(2) ,YBREAK(5) ,CH(90) ,SJ(31,3) ,MJW1 (2) , 

LOD 

60 

1MJW2(2) .WlOjH(5) ,SWEEP(60) ,NTS*NC 

LOD 

70 

DIMENSION W (5000 ) 

LOD 

80 

NNCW=NCW + 1 

LOD 

90 

NWNP=NNCW*NsWl 

LOD 

100 

LCI = 1 

LOD 

110 

lcj=lci*nwng 

LOD 

120 

LCK=LCJ*NWNg 

LOD 

130 

LCONI=LCK*NwNG 

LOD 

140 

lconj=lconi+mwng 

LOD 

150 

LCONK=LCONJ*nwNG 

LOD 

160 

LXVWNG=LCONk+NWNG 

LOD 

170 

lyvwng=lxvwng*nwng 

LOD 

180 

LXLE=LYVWNG*NWNG 

LOD 

190 

LXTE=LXLE+NSW 

LOD 

200 

LYLE=LXTE*Nsw 

LOD 

210 

lsi=lyle+nsw 

LOD 

220 

LC=LSI+NCW 

LOD 

230 

LSWP=LC*NSWl 

LOD 

240 

LXN=LSWP*NCw»NC 

LOD 

250 

LYN=LXN+2*N W NG 

LOD 

260 

lsnn=lyn+2*nwng 

LOD 

270 

LTHETP=LSNN+NCW 

LOD 

280 
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LCONS=LTHtTp*NSWl 

LOD 

290 

LDUMMV=LC0NS+NSW1 

LOO 

300 

LCT=LDllMMY*8#NWNG 

LOD 

310 

LQI=LCT +NSW1 

LOD 

320 

lqnn=loi*nncw 

LOD 

330 

lqswp=lonn*nncw 

LOD 

340 

LXVWNA=LQSWp*NNCW*NC 

LOD 

350 

LYVWNA=LXVWNA*N5Wl 

LOD 

360 

LGAMA=LYVWNa+NSW1 

LOD 

370 

LGML=LGAMA+NWNG+MSW1 

LOD 

380 

LXLH=LGML+NSW1 

LOD 

390 

LTHT=LXLM+Nswi 

LOD 

400 

LSCL=LTHT+NNCW 

LOD 

410 

LSCM=LSCL*Nswi 

LOD 

420 

LSCD=LSCM+Nswi 

LOD 

430 

LC0SP=LSCD+NSW1 

LOD 

440 

LCNC=LCOSP+NNCW 

LOD 

450 

LCSWL=LCMC+NSW1 

LOD 

460 

LC8W1=LCSWL*NSW 

LOD 

470 

LDCPA=LCSWUMSW1 

LOD 

480 

LDCP=LDCPA+NSW 

LOD 

490 

LGMNW=LDCP+NWNP 

LOD 

500 

LGMY=LGMNW+NWNP 

LOD 

510 

lvy=lgmy>nwng*n$vi 

LOD 

520 

LCOEF=LVY+NwNG 

LOD 

530 

L0CPN=LC0EF+NSW1* (NNCW+1) 

LOD 

540 

LWX=LDCPN+NSW1 

LOD 

550 

lwy=lwx+nwng+ncw 

LOD 

560 

LNEXT=LWY«-NwNG*NCW 

LOD 

570 

LNEXT=28«NWNG+25*NSW+10»NCW-14 

LOD 

580 

CALL COEFS (D (LCI > *D (LCJ) ,D (LCK) ,D (LCONI ) ,0 (LCONJ) 

♦D(LCONK) »D (LXVWLOD 

590 

1NG) ,D(LYVWN6) .D(LXLE) *D (LXTE ) *D (LYLE ) *D (LSI ) *D (LC) 

.D(LSWP) *D (LXN) *LOD 

600 

20 (L YN ) ,D(LSNN> ♦D(LTHFTP) .D(LCONS) ,D(LDUMMy) tO(LCT) 

»D(L0I) ♦D(LQNN) *LOD 

610 

30 (LOSWP ) ,0(LXVWNA) »D(LYVWNA) ,NWNG.D(LGAMA) ,0{LGML) 

.D(LXLM) f D (LTHT) LOD 

620 

4 »0 (LSCL ) .tULSCM) ,D(LsCO) ,D(LCOSP) ,0(LCNC) ,D(LCSWL) 

,D(LCSW1) ,D(LDCPLOD 

630 

5A) *0 ( LOCP ) tD(LGMNW) .D(LGM y) *D(LVY) ,D{LCOEF) ,0(LDCPN) »D(LWX) *D (LWY) LOD 

640 

6.w t Nswi ) 

LOD 

650 

RETURN 

LOD 

660 

ENO 

LOD 

670 





C 


C 


SUBROUTINE COFFS ( C I ,C J , CK *CCNI , CON J t CONK , X AVWNG , YAVWNG* XLE * XTE , VLCOF 
1E*SI»C,SWP»XN»YN*SNN, THE TP , CONS * DUMMY « CT , QI , QNN » QSWP * X AVWNA » YA VWNACOF 
2,NWNG,PAMA,GML,XLM.THT»SECCL,SECCM,SECCD,C0SP,CNC,CPSWL*CPSW1,DCPAC0F 


3 * DCP » GMNW * Umy »VY*COEF*DCPN,WX * WY , W « NSW1 ) COF 

COMPUTES THE AERODYNAMIC CHAR ACTERSTICS COF 

COMMON /COEFF/ CL t FZMINS ( 1 0 ) , FHS ( 2 * 1 0 ) , RATIOS ( 2 , 1 0 ) , COF 

1CFCORF(2,10) ,RATIOC(2,10) COF 

COMMON /ALLRR/ AX (210) tZMIN*NELM(ll) COF 

COMMON /GM/ HER COF 

COMMON /LEFLP/ YLEF ( 10 ,2) , XNF ( 1 0 ) , YNF ( 1 0 ) ,ZNF ( 1 0 ) , XLF '( 1 0 *4) , COF 

1YLF (10*4) tSLPl (10) *SS,CS*TTFRS.ZRDYV(200) ,ZRDY(200) COF 

2»CURV { I 0 ) »CHND(10) ,SZBDYV(200) COF 

COMMON /AERO/ NAEPO f MAXL , MAX W , ISPAN , ISF , I TRAKE , ISC COF 

COMMON /ALLI/ NSW»NSWB»NCW*LWNG»NCPTTL»MITER COF 

COMMON /LOC/ FIJI *FU?,XEND*PXL (5) *PXT (5) *PYL (5) COF 

COMMON /GENCF/ Ml (5) ,NW(2) ,YBREAK<5) ,CH(90) ,SJ(31,3) ,MJW1 (2> , COF 

1MJW2(2) tWlUTH(S) ,SWEEP(60) ,NTS»NC COF 

COMMON /ALLRA/ AA(17) , SI NA , COSA » AB ( 8 ) » PI , AC , CRAR , HALFB * AREA COF 

COMMON /NCT T / NCT * NCON * NBt * NCOR ( 1 5 ) * KU1 *NFSH ( 15 ) • KUC « FLG ( 1 0 ) COF 

COMMON /XSTN/ XBRR (2F) »NBRP COF 

COMMON/CAMB/ IC AM , IM ( 1 0 ) , XT ( 1 0 * 2 1 ) , AAM ( 1 0 , 20 ) , BBM ( 1 0 • 20 ) « COF 

1CCM( 10,20) , DDM (10,20) ,YT (10) ,ZBDX(200) ,ZBDXV(200) COF 


DIMENSION Cl(l), CJ(1), CK ( 1 ) , CONI(l), CON J ( 1 ) ♦ CONK ( 1 ) * XAVWNG(1C0F 
1), YAVWNG (1), XLE ( 1 ) , XTE(l), YLE ( 1 ) , SI(1), C(l), SWP ( 1 ) , SNN(l),COF 

2 CT ( 1 ) , XN ( NWNG , 2 ) , YN (NWNG,2) , DUMMY ( 1 ) , GAMA ( 1 ) , GML(l), XLM(l),COF 

3 THT(l), SECCL(l), SECCM(l), SECCD ( 1 ) , COSP ( 1 ) , CNC(l), CPSWL(l), COF 
4CPSW1 ( 1 ) , DCPA(l), DCP ( 1 ) * GMNW ( 1 ) , GMY(l), VY ( 1 ) , DCPN ( 1 ) , WX(l),COF 
5 WY ( 1 ) , W(l), COEF (NSW1 , 1 ) , CONS ( 1 ) , THETP ( 1 ) , QI(1), QNN(l), QSWPCOF 


6(1), X AVWNA ( 1 ) , YAVWNA(l) COF 

DIMENSION CONST(3) ,XCP(100) ,YCP(100) ,CPCW1 (10) ,YLM(15) COF 

DIMENSION Aw(AOOO) ,AWX(100) ,AWY(100) COF 

COMMON /TAPE / I TEST , I GOOD *SFAC(10) »KU3»NSTOP COF 

DIMENSION F (3) ,FTX (10,10) ,FTY(1 0,10) ,FTZ (10,10) ,A(3) ,R(3) ,GA(3) COF 
DIMENSION Gj (20 ) COF 

COMMON /ABC/ XE ( 1 0 ,40 ) , YE ( 1 0 ,40 ) »7E ( 1 0 , 40 ) COF 

NSW1=NTS COF 

NSW=NTS*1 COF 

REWIND 1 COF 

READ (1) NNCW , NWNP COF 


10 

20 

30 

40 

50 

60 

70 

80 

90 

100 

110 

120 

130 

140 

150 

160 

170 

180 

190 

200 

210 

220 

230 

240 

250 

260 

270 

280 

290 

300 

310 

320 

330 

340 

350 

360 

370 

380 

390 

400 
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READ (1) 

<QI (I) .ONN(I) ,I=1,NNCW) 

COF 

410 

N2=NNCW*NC 

COF 

420 

READ (1) 

(QSWP ( I ) * 1 = 1 »N2) 

COF 

430 

READ (1) 

(XAVWNA(I) .YAVWNA(I) , I=1,NSW1) 

COF 

440 

READ (1) 

(SMN(I) ,1=1 »NCW) 

COF 

450 

N3=NCW«NC 


COF 

460 

READ (1) 

(SWP(I) ,I=1,N3) 

COF 

470 

READ (1) 

(XAVWNG(I) ,YAVWNG(I) ,I=1»NWNG) 

COF 

480 

READ (1) 

(C(I) ,I=1,NSW1) 

COF 

490 

READ (1) 

<THETP(I) ,I=1,NSW1) 

COF 

500 

READ (1) 

(XTE(I) ,XLE(I),YLE(I) ,1=1, NSW) 

COF 

510 

READ (1) 

(XLM(I) ,YLM(I) ,I=1,NSW1) 

COF 

520 

READ (1) 

<CONS(I) ,1=1 ,NSW1 ) 

COF 

530 

READ (1) 

(Si (I) ,ADUM,I=1 ,NCW) 

COF 

540 

READ (1) 

(XCP(I) ,YCP(I) ,I=1,NCPTTL) 

COF 

550 

READ (1J 

( (XN(I,J) ,YN(I,J) , J=1 ,2) ,1=1 ,NWNG) 

COF 

560 

READ (1) 

(CT(I) ,I=1,NSW1) 

COF 

570 

CALL SKIPR (1.1) 

COF 

580 

READ (1) 

(CPCW1 (I) ,1=1 ,NCW) 

COF 

590 

READ (I) 

(CPSWL (I) ,1=1, NSW) 

COF 

600 

READ (1) 

(CPSW1 (T) ,I=1,NSW1) 

COF 

610 

NWNB=NWNG 

♦NSW1 

COF 

620 

REWIND 2 


COF 

630 

READ (2) 

(Gama ( i) , i=i,nwnb) 

COF 

640 


PIJ=PI/(2.*FL0AT(NCW) ) COF 


DO 10 J=1»NCW 

10 COSP(J)=COS( <2.*FL0AT(J)-1.)*PIJ> 

IJ=Ml(l) 

Y1=YLE(IJ) 

HSW=M 1(1) 

CONST ( 1 ) =Y1*PI/ (ARFA*FLOAT (MSW) ) 

IF (ITRAKE.EQ.1) GO TO ?0 

Y2=HALFP-Y1 

MSW=M 1(2) 

C0NST(2)=YH«PI/(AREA*FL0AT(MSW) ) 

20 CONTINUE 

DO 40 I=1*NSW1 
GT(I)=0. 

Kl = l 

IF (ITPAKE.NE.I.AND.I.GE.MI (1) ) K1=M1<1) 


COF 

COF 

COF 

COF 

COF 

COF 

COF 

COF 

COF 

COF 

COF 

COF 

COF 

COF 

COF 


650 

660 

670 

680 

690 

700 

710 

720 

730 

740 

750 

760 

770 

780 

790 

800 

810 
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30 

GT ( I ) =GT ( I ) + GAMA (NWNG+K1 ) 


COF 820 


K1=K1+1 


COF 830 


IF (Kl.GT.I) GO TO 40 


COF 840 


GO TO 30 


COF 850 

40 

continue 


COF 860 

C 

CALCULATION OF GMY-VALUES FOR 

WING SURFACE 

COF 870 


NCONsO 


COF 880 


NCT = 0 


COF 890 


NBT = n 


COF 900 


K I = 1 


COF 910 


MX=M1 (Kl)-l 


COF 920 


DO 70 I 1=1 »NSW1 


COF 930 


IF (II.GT.MX) GO TO 50 


COF 940 


GO TO 60 


COF 950 

50 

KI=K I ♦ 1 


COF 960 


MX=MX+M1 (KI)-l 


COF 970 

60 

CONTINUE 


COF 980 


DO 70 J=1 *NCW 


COF 990 


I=(II-1 )*NCW*J 


COFIOOO 


JJ= (KI-1 ) *NCW* J 


COF1010 


XEE=XAVWNG(I) 


COF1020 


YEE=YAVWNG(I) 


COF1030 


ZEE=0. 


COF1040 


CALL NEWVEL (C,THETP,XEE,yEF, 

ZEE ♦XN.YN.XTF.YLE ♦CONS 

, DUMMY* CONI. CONCOFl 050 


1 J,C0NK,SI»NSW1,NCW,NWNG.CI,CJ 

»ck,xle,uu*vv,ww,aoum. 

BDUMtCDUM, GAMA, COF 1060 


2YLM) 


COF1070 


UU=UU 


COF1080 


VV=VV 


COF1090 


ST=SORT (1 .♦SZBDYV (I)**2) 


COFllOO 


SD=SZBOYV(I)/ST 


COFU10 


TNSP=TAN(SWP(JJ) ) 


COF1120 


PHIY=ATAN(SZRDYV(I) ) 


COF1130 


ACP=SS*SIN(PHIY) 


COF1140 


GMY(I)=GAMA(I)«(UU-(VV*C0S(PHIY)*ACP)»TNSP) 

COFl 150 

70 

CONTINUE 


COFl 160 

C 

CALCULATION OF INDUCED VELOCITIES AT BOUND ELEMENT 

END-POINTS ON COFl 180 

C 

WING SURFACE 


COFl 190 


NAERO=0 


COF1200 


DO 90 I=l»Nswi 


COF1210 


DO 80 J=1 *NCW 


COF1220 


NP= { 1-1 ) «NCw+ J 


COF1230 



O' u 


80 

0 


100 


110 

C 


C 


120 


130 


XEE=XN(NP*2) COF1240 

YEE=YN (NP*2) COF1250 

CALL NEWVEL (C , T HFTP , XEE , YEE , ZEE , XN, YN , XTE , YLE*CONS*DUMMY *CONI *CONCOF1260 
1J,CONK,SI*NSW1*NCW*NWNG*CI,CJ,CK,XLE*UU*VV*WW*ADUM*BDUM*CDUM,GAMA,COF1270 
2YLM) COF1280 

ST=SORT(l.*S78DYV{NP)»»?) COF1290 

SD=SZRDYV (NP) COF1300 

VY(NP)=VV COF1310 

CONTINUE COF1320 

CONTINUE COF1330 

CALCULATION OF GMY-VALUFS FOP BOUND ELEMENTS NEAR LEADING-EDGE C0F1340 
00 100 J= 1 » NNCW COF1350 

FJ=J COF1360 

THT(J)=(2. tt FJ-l,)#PI/(2.*FL0AT(NNCW) ) COF1370 

SURA=8.*FLOAT(NNCW) /{4,»PI*SIN(THT(1) ) ) COF1380 

DO 110 I=1»MAXL COF1390 

NGI=NWNG+I COF1400 

GML(I)=GAMA(NGI)*SURA/C(I) COF 1410 

COF1420 

REWIND 3 COF1430 

WRITE (3) <GML(T) *I=lfNSWl) C0F1440 

..COF1450 

NAERO=l C0F1460 

DO 140 11=1, MAXL COF1470 

XEE=XAVWNA(II) COF1480 

YEE=YAVWNA (II) COF1490 


CALL NEWVEL ( C * THETP * XEE* YEEVZEE , XN* YN* XTE* YLE, CONS* DUMMY* CONI ,CONCOF 1500 
lJ,CONK*SI*Nswl,NCW*NWNG*CI,CJ,CK,XLE,UU*VV,WW,ADUM,BDUM,CDUM*GAMA,COF15lO 


2YLM) COF1520 

JJ=1 COF1530 

KI=1 COF1540 

MX=M1(KT)-1 COF1550 

TNSP=TAN (QSWP ( JJ) ) COF1560 

IF (II.GT.MX) GO TO 120 COF1570 

GO TO 130 COF1580 

KI=KI*1 COF1590 

MX=MX+M1 (KI)-l COF1600 

JJ= (KI-1 ) *NNCW>1 COF1610 

TNSP=TAN (OSwP (JJ) ) COF1620 

CONTINUE COF1630 

NWNGII=NWNG*II COF1640 



IJ=(II-1)*NNCW+1 
ST=SORT ( 1.+7P0YV (IJ) »*2) 

SD=7RDYV ( I J) /ST 
PH I Y = AT AN (ZROYV ( I J) ) 

ACP=S5*SIN (PHIY) 

GMY (NWNGI I ) =GML (II) * (UU- <VV*COS (PHIY) *ACP) *TNSP) 

140 CONTINUE 

C CALCULATION OF DCP-VALUFS FOR WING POINTS 

PN=PI/ (FLOA T (NCW) ) 

DO 150 I=1»NCW 
W(I)=0. 

WX (I)=XN(I»1) 

150 WY ( I ) =YN (1*1) 

DO 230 I=1»NSW1 
DO 220 J= 1 ♦ NCW 
NP= ( I — 1 ) *NCw+J 
VYY=VY(NP) 

CPG=0. 

CPH=0. 

CPI=0. 

IF (I.EQ.NSwi.AND. (PXT(NC* 1 )-PXL(NC* 1 ) ) .NE.O.) GO TO 210 

DO 170 JJ=1,J 

NPIN=(I-1)*NCW+JJ 

IF (J.FQ.JJ) GO TO 160 

CPG=CPG*GAMa (NPIN) *SI ( JJ) 

GO TO 170 

160 CPG=CPG*0.5*GAHA (NPIN) *SI ( JJ) 

170 CONTINUF 

IF (I.EQ.NSWI) ACPG=CPG*C(I)«PN 

CPG=-CPG»PN*C ( I ) »VYY 

IF (I.EQ.NSWI) GO TO 200 

DO 190 JJ=1,J 

NPOT=I*NCW+JJ 

IF (J.EQ.J'J) GO TO 180 

CPH=CPH+GAMA (NPOT) *SI ( JJ) 

GO TO 190 

180 CPH=CPH+0.5*GAMA (NPOT) *SI ( JJ) 

190 CONTINUF. 

CPH=CPH»PN*C ( 1*1 ) «VYY 
GO TO 210 
200 Y1=YLE(NSW) 


COF1650 

COF1660 

COF1670 

COF1680 

COF1690 

COF1700 

C0F1710 

COF1720 

COF1730 

COF1740 

COF1750 

COF1760 

COF1770 

COF1780 

COF1790 

COF1800 

COF1810 

COF1820 

COF1830 

COF1840 

C0F1850 

C0F1860 

COF1870 

COF1880 

COF1890 

COF1900 

COF1910 

COF1920 

COF1930 

COF1940 

COF1950 

COF1960 

COF1970 

COF1980 

COF1990 

COF2000 

COF2010 

COF2020 

COF2030 

COF2040 

COF2050 
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A1=SQRT(1.-(Y1/HALFB)#»2) 

A?=SOBT ( 1 .- ( YLM ( T ) /HALFB ) «« 2 ) 

CPH=ACPG«A1/A2*VYY 
210 CPI=2 # *GAMA (NWNG+I) »VYY 

IF (I.NF.NSwi) W(NP*NCW)=2.*(CPG+CPH*CPI)/(YLE(I*2)-YLE(I> ) 
IF (I.EG.NSWl) W (NP+NCW ) = (CPG+CPH+CPI ) / (YLE ( I+l j -YLE ( I ) ) 

WX (NP*NCW)=XN(NP»2) 

WY ( NP + NCW ) = YN ( NP ♦ 2 ) 

220 CONTINUE 
230 CONTINUE 

c strake SECTION INTERPOLATION 

LL = 1 
INIP=0 
MSX=M1 (1)-1 
MPX=H1(1) 

N3=NCW*M1 ( 1 ) >3 
DO 240 1 = 1* MPX 
DO 240 J= 1 » NCW 
NP=(I-l)*NCw+J 
AW(NP)=W(NP) 

AWX (NP) =WX (NP) 

AWY (NP) =WY(NP) 

240 CONTINUE 
GO TO 270 

c wing sfction interpolation 

250 LL=2 

INIP=NCW* ( M x (1 ) -1 ) 

MSX=M1(2)-1 

MPX=M1(2) 

N3=NCW*M1 (2) +3 
DO 260 1 = 1* MPX 
DO 260 J= 1 * NCW 
NP=(I-1 )*NCw-t-j 
MP=NP*INIP 
AW(NP)=W(MP) 

AWX (NP) =WX (HP) 

AWY (NP) =WY (MP) 

2ft 0 CONTINUE 

270 CALL SIJRFSET (N3 , AWX ♦ AWY * AW * C I ) 

DO 290 K= 1 » NCW 
DO 280 J=1 * MSX 


COF2060 

COF2070 

COF2080 

COF2090 

COF2100 

COF2110 

COF2120 

COF2130 

COF2140 

COF2150 

COF2160 

COF2170 

COF2180 

COF2190 

COF2200 

COF2210 

COF2220 

COF2230 

C0F2240 

COF2250 

COF2260 

COF2270 

C0F2280 

COF2290 

COF2300 

COF2310 

COF2320 

COF2330 

COF2340 

C0F2350 

COF2360 

COF2370 

COF2380 

COF2390 

COF24Q0 

COF2410 

COF2420 

COF2430 

COF2440 

COF2450 

COF2460 



280 

290 

C 

C 


300 

C 

c 


310 

C 


320 


NP=INIP+ ( J-l ) «NCW*K COF2470 
DCP1=?.*GMY (NP) COF2480 
XEE=XAVWNG(NP) COF2490 
YFE=YAVWMG(mp> COF2500 
CALL SURFORD (AW,XEE,YEE,VV,N3> COF2510 
DCPD=VV COF2520 
DCP(NP)=DCPl*DCPO COF2530 
CONTINUE C0F2540 
CONTINUE COF2550 
IF (ITRAKE.NF.I.AND.LL.EG.1) GO TO 250 COF2560 
CALCULATION OF INDUCED VELOCITIES AT END-POINTS OF BOUND ELEMENTS COF2570 
NEAP LEADING-FDPF COF2580 
NAERO=0 COF2590 
CPC=0.5*(1» -COS ( THT ( 1 ) ) ) COF2600 
DO 300 1 = 2 »NSW COF2610 
XEE=XLE(I>*CPC»(XTE(T)-XLE(I) > COF2620 
YEE=YLE(I) COF2630 


CALL NEWVtL (C,THETP,XEE,YEE,ZEE,XN,YN,XTE,YLE,CONS,DUMMY,CONI,CONCOF2640 
1J,CONK,SI*NSW1,NCW.NWNG,CI,CJ,CK,XLE,UU,VV,WW,ADUM,BOUM,CDUM,GAMA,COF2650 


2YLM) COF2660 

IJ=(I-2)»NNCW*1 COF2670 

ST=SORT (1 , + ZBDYV ( I J) *#2) COF2680 

SD=ZROYV (I J) /ST COF2690 

VY ( I ) =VV COF2700 

DCP-INTERPOLATION FOP BOUND ELEMENTS OF WING COF2710 

CALL INTGMY (NCW ,NSW1 ,DCP, SNN ,COEF, DUMMY (1) , DUMMY (NNCW) ) COF2720 

CALCULATION OF DECREASE IN DCP-VALUES AT THF LEADING-EDGE COF2730 

DO 310 1=1 «NSW1 COF2740 

CNC ( I ) =-2 » *GMY { NWNG* I ) COF2750 

CONTINUE COF2760 

FINAL DCP-VALIJFS AT LARGER WING GRID COF2770 

DO 350 I=1»NSW1 COF2780 

DO 340 J= 1 • NNCW COF2790 

NP=(I-1)*NNCW*J COF2800 

GMNW (NP )=COEF (1,1) COF2810 

DO 320 K=1,NCW COF2820 

FK=K COF2830 

AMIl=COS(FK*THT(Jn COF2840 

AMI2=AMI1*C0EF(I,K+1) C0F2850 

GMNW (NP) =GMNW (NP) +AMI2 COF2860 

CONTINUE COF2870 
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GMNW(NP)=GMnw(NP)/(SIN(THT(J) ) ) 

IF (J.NF.l) GO TO 330 
NGI=NWNG+ I 

GMNW (MP) =GMnw (NP ) +CNC ( I ) 

330 CONTINUE 
340 CONTINUE 
350 CONTINUF 

DO 360 1 = 1* NWNP 
360 DCP(I)=GMNW ( I) 

DO 370 1 = 1* NWNP 
370 CONTINUF 

PIJ=PI/(2.*FLOAT(NNCW) ) 

WRITE (6*650) 

IF (lTER.Gfc.KU3) WRITE (ITEST,650) 

DO 380 1=1 *NSW1 
DO 380 J= 1 » MNCW 
NP=(I-1 )»NNCW*J 

CPCW=0,5*(1.-COS( (2.*FL0AT(J)-1.)»PIJ) ) 

IF (ITER.Gfc.KU3) WRITE <ITEST*660) CPCW.CPSW1 (1) .OCP(NP) 

380 WRITE (6*660) CPCW*CPSW1 (I) »DCP(NP) 

DO 390 J= 1 » NNCW 

390 COSP(J)=COS( (?.*FLOAT(J)-l.)*PIJ) 

C EVALUATION OF SECTIONAL AND TOTAL AERODYNAMIC CHABACTERSTICS 

CL = 0. 

CM=0. 

CD=0. 

CTT=0. 

DO 430 1 = 1* NSW 1 
SECCL ( I ) =0 •. 

SECCD ( I ) =0 • 

SECCM ( I ) =0 • 

KS = 1 

HSWsMl(l) 

NIM=0 

IF (ITRAKE.NE.1.AND.I.GT.M1 (1)-1) GO TO 400 
GO TO 410 
400 KS=2 

MSW=M1 (2) 

NIM=M1(1)-1 
410 CONTINUE 

PHII=PI*FLOAT ( I-NIM) /FLOAT (MSW) 


COF2880 

COF2890 

COF2900 

COF2910 

COF2920 

COF2930 

COF2940 

COF2950 

COF2960 

COF2970 

COF2980 

COF2990 

COF3000 

COF3010 

COF3020 

COF3030 

COF3040 

COF3050 

COF3060 

COF3070 

COF3080 

COF3090 

CGF3100 

COF3110 

C0F3120 

COF3130 

COF3140 

COF3150 

COF3160 

COF3170 

COF3180 

COF3190 

COF3200 

COF3210 

COF3220 

COF3230 

COF3240 

C0F3250 

COF3260 

COF3270 

COF3280 


184 



T 


SPI=STN(PHII) C0F3290 

DO 420 J=1«NNCW COF3300 

NP=(I-1)*NNCW*J COF3310 

FT=SORT(l.*ZRDXV(NP)*#2+ZBDYV(NP)*#2) COF3320 

FAC=(7RDXV (NP)*SS*CS)/FT COF3330 

FAS=(-7BDXV(NP)*CS*SS)/FT COF3340 

SECCL ( I ) =SECCL ( T ) + DCP (NP) *Ql (J)*FAC C0F3350 

SECCD(I)=SEccn(I)*DCP{NP)* 0 l (J)«FAS COF3360 

SECCM ( I ) =SECCM ( I ) — DCP (NP) *(5 1 ( J ) « < XLM ( I > «■ 0 . 5*C ( I) * ( 1 . -CoSP ( J) ) )/CBACOF3370 
XR/FT COF3380 

420 CONTINUE COF3390 

SECCL(I)=SECCL(I)*PT/(2.*FL0AT(NNCW) ) C0F3400 

SECCM(I)=SECCM(I)*PI/(2.*FL0AT(NNCW) ) COF3410 

SECCD(I)=SEccn(I)*PT/(2,*FL0AT(NNCW) ) COF3420 

NL=NWNG+I COF3430 

FAS=(-7BDXV (NL)*CS+SS)/FT COF3440 

FAC= (ZPDXV (NL) *SS+CS) /FT COF3450 

FT=SQPT ( 1 • +ZROXV (NL ) »*2«-7BDYV (NL) **2) COF3460 

SECCL(I)=SEcCL(I)+CT(I)*FAC COF3470 

SECCD(I)sStcCD(I)-CT(I)*FAS COF3480 

CL=CL*SFCCL ( I ) *C ( I ) *SPI*CONST (KS) COF3490 

CM=CM*SECCM ( I ) *C ( I ) *SPI*CON5T (KS) COF3500 

CD=CD*SECCD (I)«C(I)*SPI*CONST (KS) COF3510 

430 CTT=CTT*CT(i)«C(T)*SPI*CONST(KS) COF3520 

c COF3530 

WRITE (7) Cl,CM.CD»CTT COF3540 

C COF35BO 

WRITE (6,62o) (I.SECCL(I) .SECCM(I) ,SECCD(I) ,CT(I) ,I=1*NSW1) COF3560 

IF (ITER.GE.KU3) WRITE (ITEST»620) ( I , SECCL ( I ) ,5ECCM ( I ) .SECCD ( I ) , CCOF3570 
1T(I) ♦I=l»NSwi) COF3580 

WRITE (6,630) CL,CM,CD,CTT COF3590 

IF (ITER.GE.KU3) WRITE (ITEST.630) CL,CM,CD,CTT COF3600 

NNCW 1 =NNCW+ i COF3610 

CALL INTGMY (NNCW,NSW1,DCP,QNN,C0EF,DUMMY(1) ,DUMMY(NNCWl) ) C0F3620 

REWIND 1 COF3630 

CALL SKIPR (1,10) COF3640 

READ (1) (XLM(I) ,CI (I) ,I=1,NSW1) COF3650 

C EVALUATION OF DCP AT CONSTANT X LOCATIONS COF3660 

DO 520 K=I»NBRR COF3670 

XBR=XRRR(K) COF3680 

IF (XRR.GE.PXL (NC*1) ) GO TO 460 COF3690 
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440 

4*50 

460 

470 

480 

C 

C 

490 

500 

510 

520 

C 


KY= 1 

IF (XRR.LT.XLM(KY) ) GO TO 450 
KY=KY*1 

IF (KY.LF.NsWl) GO TO 440 
KY=KY-1 

BLOCAL=CI (Ky) ♦ (C l (KY*1 )-CI (KY) > * (XBR-XLM (KY) ) / (XLM (KY+1 ) -XLM 
GO TO 470 
BLOCAL=PYL (NC+1 ) 

KY=N$W1 
CONTINUE 
DO 490 1=1 *KY 
CJ(I)=CI (D/BLOCAL 
XC= (XRP-XLM ( J ) )/C(I) 

THTA=ARCOS ( 1 .-2,*XC) 

DCPN(I)=COEF(I,l) 

DO 480 J= 1 ♦ NNCW 

DCPN ( I ) =DCPn { I j ♦COEF ( I , J* 1 ) *COS (FLOAT ( J) #THTA ) 

DCPN ( I ) =DCPn ( I > / ( S IN ( THTA )) 

WHFNEVFR THp NEGATIVE CP OCCURS AFTER SPANWISE INTERPOLATION 

following Correction will be made 

IF (DCPN(I) .GT.O.) GO TO 490 

IF (I.EQ.I) GO TO 490 

DX=CJ (T-l)“1.0 

DY=DCPN(I-i)-0. 

DYDX=DY/PX 
DX 1=CJ ( I ) -1 VO 
DCPN ( I ) =DYDx*Dx 1 
CONTINUE 

IF ( DCPN ( 1 ) . LT . 0 , ) GO TO 500 
GO TO 510 
DX=CJ ( 2 ) 

DY=DCPN (2) ”0.5#DCPN (?) 

DYDX=DY/DX 
DX 1 =C J ( 1 ) 

DCPN(1)=0.5*DCPN(2) *DYDX*DX1 
CONTINUE 

WRITE (6,640) XRR* (CT (I) ,CJ(I) ,DCPN(I) ,I=l,KY) 

IF (ITER.GE.KU3) WRITE (ITEST,640) XBR, (Cl (I) ,CJ(I ) ,DCPN ( I) , 
1) 

CONTINUE 

COMPUTE THE FORCE ON THE FREE SHEET SEGMENTS AFTER SATISFING 


COF3700 
COF3710 
COF37R0 
COF3730 
COF3740 
(KY)) COF3750 
COF3760 
COF3770 
COF3780 
COF3790 
COF3800 
COF3810 
COF3820 
COF3830 
COF3840 
COF3850 
C0F3860 
COF3870 
• THE C0F3880 
COF3890 
COF3900 
COF3910 
COF3920 
COF3930 
COF3940 
COF3950 
COF3960 
C0F3970 
COF3980 
COF3990 
COF4000 
COF4010 
COF4020 
COF4030 
COF4040 
COF4050 
C0F4060 
1=1 .KYCOF4070 
COF4080 
COF4090 
COF4100 
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C BOUNDARY CONDITION 

IF (ITFR.LT.KUl+l) GO TO 610 
SFAC(ITER)=o. 

NCT = 0 
LL=1 
Ll = l 
KS=2 

KE=M1 (1)-1 
GO TO 540 
530 LL=2 

Ll=Ml (1 ) 

KS=M1 (D*l 
KE=MAXL 

540 CONTINUE 
NAERO=0 

NCR2=NCOP(Ll)-p 
DO 550 J=5 » NCR? 

DO 550 I=KS f KF 
GMA=GAMA (NWNG+I ) 

NBT = 0 
NCON=I 

XEE = 0.5*(XE(I,J)4'XE(I»J + 1) ) 
YFE=0.5«{Yt ( i,j, + YE(I*J+l) ) 
ZEE=0.5*(ZE<I,J)+ZE(I,J*1) ) 

IF (J.F0.5) FZMINS(I)=0.50»ZE(I, 
CALL NEWVEL (C,THFTP,XEF,YEE,ZEE 
ij,conk,f,i*nswi ,NCW,NWNG,CI,CJ,CK 
2LM) 

A(l)=XE(IfJ+l)-XF(IiJ) 
A(2)=YE(I*J*1)-YE(I*J) 
A(3)=7E(I*J+1)-7F(I,J) 
GA(1 )=GMA*A(D/arFA 
GA (2) =GMA*A (?) /APFA 
GA(3)=GMA*A ( 3)/arEA 
B ( 1 ) =UU 
B(2)=VV 
6(3) smw 

CALL CRSPRD (B,GA,F) 

FTX(I,J)=F (1) 

FTY ( I , J) =F <2) 

FTZ (I, J)=F (3) 


COF4110 

COF4120 

COF4130 

COF4140 

COF4150 

COF4160 

COF4170 

COF4180 

COF4190 

COF4200 

COF4210 

COF4220 

COF4230 

COF4240 

COF4250 

COF4260 

COF4270 

COF4280 

COF4290 

COF4300 

C0F4310 

COF4320 

COF4330 

COF4340 

♦1) COF4350 

XN,YN»XTE,YLE, CONS. DUMMY, CONI *CONCOF4360 

XLE,UU,Vy,WW*CPCWl, XCP, YCP, GAMA* YC0F4 370 

COF4380 

COF4390 

COF4400 

COF4410 

COF4420 

COF4430 

COF4440 

COF4450 

COF4460 

COF4470 

COF4480 

COF4490 

COF4500 

COF4510 
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550 


560 


CONTINUE COF45?0 

NSW5=NFLM(Ll)-NC0R(Ll) COF4530 

NAERO=l COF4540 

CFTX=0. COF4550 

CFTY=0. C0F4560 

CFTZ=0. COF4570 

FCX YZ=0 • COF45B0 

DO 560 I = 1 » NSW5 COF4590 

I I=NCOR (L 1 ) ♦ I COF4600 

NCON= (Ll-1 ) *1 COF4610 

IF (NCON.GE.KF) NCON=KE C0F4620 

NBT=1 COF4630 

XEE=0.5*{XE(L1,II-1)+XF(L1,II) ) COF4640 

YFE=0.5*(YE{L1,II-1) ♦YE(L1,II) ) COF4650 

ZEE=0.5*(ZE(Ll t II-n+ZE(Ll*II) ) COF4660 

GMA=GT (NCON) COF4670 

A(1)=XF(L1» II)-XE(L1,II-1) COF4680 

A(2)=YF(Ll,II)-YF(Ll,II-l) COF4690 

A(3)=7F(L1*II)-7E(L1,II-1) COF4700 

CALL NEWVEL (C * THETP,XEEtYEE» ZEE, XN*YN,XTE,YLE, CONS f D ummy* CONI, C0NC0F4710 
IJ,C0NK,SI,NSW1 ,NCW,NWNG,CI,CJ,CK,XLE,UU,VV,WW,CPCW1 




2LM) COF4730 

GA(1)=GMA*A(D/apEA COF4740 

GA (2) =GMA«A (?) /APEA COF4750 

GA (3) =GMA*A (3) /AREA COF4760 

B ( I ) =UU COF4770 

B (2) “VV COF4780 

B ( 3 ) =WW COF4790 

CALL CRSPRD (B,GA,F) COF4800 

FCXYZ=FCXYZ+SORT (F ( 1 ) #*2*F (2) #*2+F (3) #*2) COF4810 

CFTX=CFTX+F n ) COF4820 

CFTY = CFTY + F (2) COF4830 

CFTZ=CFTZ+F(3) COF4840 

CONTINUE COF4850 

CFTXY7-S0RT (CFTX**? + CFTY<h»2 + CFTZ#*2) COF4860 

CFC0PE(LL,ITEP)=CFTXYZ COF4870 

TFTX=0. COF4880 

TFTY=0. C0F4890 

TFTZ=0. COF4900 

FSXYZ=0 . COF4910 

DO 580 I=KS,KE COF4920 
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NCC=NCOR(I>-? 

COF4930 


DO 570 J = !3»NCC 

COF4940 


TFTX=TFTX+FTX (I,J) 

COF4950 


TFTY=TFTY*FTY (I ,J) 

COF4960 


TFT7=TFTZ+FTZ(I,J) 

COF4970 


FSXYZsFSXYZ+SQPT (FTX (I, J)**2*FTY(I, J) *«2+FT7 ( I , J) **2) 

COF4980 

570 

CONTINUE 

COF4990 

5R0 

CONTINUE 

COF5000 


TFXYZ=S0RT (tfTX»*P*TFTY**2,TFTZ**2) 

COF5010 


FHS (LL,ITtR)=TFXYZ 

COF5020 


SFAC(ITEP)=SFAC{ITER) ♦ (FCXYZ*FSXYZ ) 

COF5030 


IF (ITPAKE.NF.I.AND.LL.EQ.1) GO TO 530 

COF5040 


IF (ITER.LQ.KU3) GO TO 600 

COF5050 


IF <lTER.Gt.KU3+l) GO TO 590 

COF5060 


GO TO 610 

COF5070 

590 

CONTINUF 

COF5080 


IF (SFAC(ITER) . LF . SF AC ( ITER- 1 ) ) GO TO 600 

COF5090 


REWIND ITLSt 

COF5100 


NSTOP=l 

COF5110 


MITER=ITER 

COF5120 


GO TO 610 

COF5130 

600 

I=ITEST 

COF5140 


ITEST=IGOOD 

COF5150 


IGOOD=I 

COF5160 


NSTOP=0 

COF5170 


REWIND ITESt 

C0F5180 

610 

CONTINUE 

COF5190 


RETURN 

COF5200 

C 


C0F521 0 

620 

FORMAT (1H1,//,9X, 20HSECTIONAL PROPERTIES, /,9x* 2 0H***»* # ********»#COF5230 


1«hhh»,//*9X,38HI CL CM CD CT,/,9X,38H* C0F5240 

2 ** ** ** **,/., <110, 4F10.5)) COF5250 

630 FORMAT (lH ,/,9X.23HT0TA|_ LIFT COEFFICIENT=,F10.5,/,9X,34HTOTAL PICOF5260 
ITCHING MOMENT COEFF IC IENT=, FI 0 .5 ♦ / , 9X , 23HTOTAL DRAG COEFFICIENT*, FCOF5270 
210.5,/,9X»25HTOTAL THRUST COEFFICIENTS, Flo. 5) COF5280 

640 FORMAT (lH ,//,34H SPANWISE PRESSURE AT CONSTANT X«, Fl 0 .5, /, 8X , 25HC0F5290 
1Y 2Y/B (LOCAL) DELTA-CP,/, ( 1 X , 2F1 0 . 5, 2X , FI 0 . 5) ) COF5300 

650 FORMAT (1H1,//,5x » 21HDELTA-CP DISTRIBUTION, /,5X*21H***#****** # ***»COF5310 
!*****», /,30H X/C 2Y/B DELTA-CP, /,30H *** ***COF5320 

2* ***««***, C0F5330 

660 FORMAT (1H ,3F10.5) COF5340 
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non 


END 


COF5350 



SUBROUTINE INTGMY (NCW *NSW 1 . SGM . SNN *COEF * F * THETA ) 

INT 

10 

c 

SETS UP COEFFICIENTS OF A MATRIX FOR DCP- INTERPOL AT I ON 

I NT 

20 


DIMENSION SGM(l), SNN (1 ) , F<1). THETA (1)* C0EF(NSW1*1) 

INT 

30 


PI=3. 14159265 

INT 

40 


ni=ncw+i 

INT 

50 


FN=NCW 

INT 

60 


DO 40 1=1 *NSW1 

INT 

70 


DO 10 J= 1 ♦ NCW 

INT 

80 


NK=(I-l)*NCw+J 

INT 

90 


FJ=J 

INT 

100 


THETA (J) = (2.#FJ-l.)'*Pt/(2,*FN) 

INT 

110 

10 

F(J)=SGM(NK)«sNN(J)> 

INT 

120 


DO 30 J=l*Nl 

INT 

130 


COEF(I,J)=0. 

INT 

140 


FJ=J 

INT 

150 


DO 20 K=1»NCW 

INT 

160 

20 

COEF ( I , J) -CoFF < I « J ) *F f-K) *C0S ( (FJ-1 *THETA (K) ) 

INT 

170 


IF (J.EO.l) C0EF(I,J)=C0EFM,J)/FN 

INT 

180 


IF fJ.NE.l) COEF (I *J) SCOFF fI*J)*2V/FN 

INT 

190 

30 

CONTINUE 

INT 

200 

40 

CONTINUE 

INT 

210 


RETURN 

INT 

220 


END' 

INT 

230- 


SUBROUTINE SURFSFT (N3VX rY ,W rlWK) 

SET UP PROGRAM' FOP SUP FACE SPLINE 

WRITTEN By - poBFPT N, DESMARAIS* STRUCTURES AND DYNAMICS DIV. 

LANGLEY RESEARCH’ CENTER* HAMPTON* VA.23665 
DIMENSION X(I) Yfllr W‘IN3vl’)'* IWK(I) 

E=1.E-10 
NZ = 1 
N=N3-3 
N1=N + 1‘ 

N2=N«-2 

N4=N3*1 


SRF 10 
SRF 20 
SRF 30 

srf 40 
SRF 50 
SRF 60 
S*F 70 
SRF 80 
SRF 90 
SRF 100 
SRF 110 
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r 


RN=1./N 

N3Z=N3*NZ 

N73=N7*3 

C COMPUTF SCALING P ARAMETFPS * UB,UX .UY*VR f VXfXY 

XR=0. 

YB = 0. 

PXX=0. 

PXY=0. 

PYY=0. 

TH = 0. 

DO 10 1 = 1 *N 
XR=XB+X(I> 

YB=YB+Y(I> 

PXX=PXX*X ( I) »X (T ) 

PXY=PXY*X ( I ) *Y { I ) 

10 PYY=PYY*Y(I)*Y(I) 

XB=RN*XB 

yb=rn»yb 

PXX=RN«PXX-XB*XB 

pxy=rn*pxy-xb*yr 

pyy=rm«pyy-yb*yr 

IF (PXY.NE.O) TH=.5*ATAN2(2.*PXYtPYY-PXX) 
CT=COS(TH) 

ST=SIN (TH) 

C?=CT#CT 
CS=2.*CT*ST 
S2=ST *ST 

SU=1 ./SORT (PXX#C2-PXY»CS«-PYY*S2) 

SV=1./SQRT (PXX»S2*PXY«CS*PYY*C2) 

UX=SU*CT 

UY=-SU«ST 

VX=SV*ST 

VY=SV*CT 

UB=-(UX*XB*UY»YB) 

VR=- (VX*XB+VY*YR) 

C PUT 7 INTO ITS W LOCATION 

IZ=N«N7 

DO 30 J=NA*N3Z 
DO 20 1=1*3 
20 W(I,J)=0 

DO 30 I=4*N3 


SRF 120 
SRF 130 
SRF 140 
SRF ISO 
SRF 160 
SRF 170 
SRF 180 
SRF 190 
SRF 200 
SRF 210 
SRF 220 
SRF 230 
SRF 240 
SRF 250 
SRF 260 
SRF 270 
SRF 280 
SRF 290 
SRF 300 
SRF 310 
SRF 320 
SRF 330 
SRF 340 
SRF 350 
SRF 360 
SRF 370 
SRF 380 
SRF 390 
SRF 400 
SRF 410 
SRF 420 
SRF 430 
SRF 440 
SRF 450 
SRF 460 
SRF 470 
SRF 480 
SRF 490 
SRF 500 
SRF 510 
SRF 520 
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30 

C 


40 


50 


60 

C 


70 


W { I » N37 + N4-J ) =W ( 1 7 » 1 ) 

17=17-1 

PUT 1 »U*V (SCALEO X»Y) INTO THEIR W LOCATIONS 
00 40 J=Nl »N3 
DO 40 1=1*3 
W (I ♦ J)=0 
DO 50 J=1 *N 
JB=N4-J 
W(1,J)=1. 

W(JB,N1 )=W(1,J) 

W (2, J) =UR*Ux*X ( J) *UY*Y ( J) 

W(JB,N?)=W(?,J) 

W (3. J) =VB*Vx*X ( J) *VY#Y ( J) 

W(JB,N3)=W(3»J) 

DO 60 J= 1 »N 
JB=N4- J 

COMPUTE H MATRIX IN W 
DO 60 I=4»vJB 
I B=N4- I 

R2=(W(2f<J)“W(?»IB) (W(3f J)-W(3*IB) ) »*2 

W(I,J)=R2*AL0G(R?*E) 

W(JB,IB)=W (I, J) 

MATOPS IS THE SYSTEM LIBRARY ROUTINE FOR SOLVING LINEAR 
N31=N3+ 1 

CALL MAT INV (N3.N3.W. 1 ,W { 1 ,N31 ) ♦ 1 *DET ♦ ISC . IWK , I WK (N4 ) ) 
PUT S*U»V IN LOW W 
W(1,1)=N3*<3.+N7) 

W(2,1)=M 
W { 3 » 1 ) = E 
DO 70 I=1*N 
W ( I *3 * 1 ) =0 

W(I»2)=UB-*-Ux*X(I)*UY*Y(I) 

W(I,3)=VR*Vx«X (I) *VY»Y(I) 

W(N1*?)=UB 
W { N2 « 2 ) =UX 
W(N3*2)=UY 
W (N 1 » 3 ) =VB 
W(N2,3)=VX 
W(N3»3)=VY 
IF (N7.EQ.0) RFTURN 
DO 80 J=4 t N 73 


SRr 530 
SRF 540 
SRF 550 
SRF 560 
SRF 570 
SRF 580 
SRF 590 
SRF 600 
SRF 610 
SRF 6?0 
SRF 630 
SRF 640 
SRF 650 
SRF 660 
SRF 670 
SRF 680 
SRF 690 
SRF 700 
SRF 710 
SRF 720 
SRF 730 
SRF 740 
EQUATIONSSRF 750 
SRF 760 
SRF 770 
SRF 780 
SRF 790 
SRF 800 
SRF 810 
SRF 820 
SRF 830 
SRF 840 
SRF 850 
SRF 860 
SRF 870 
SRF 880 
SRF 890 
SRF 900 
SRF 910 
SRF 920 
SRF 930 
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non r> o no — < ooo 


r 


DO 80 I=1»N3 SRF 940 

C LEFT SHIFT A,R MATRICES N COLUMNS SRF 950 

80 W(I,J)=W(I*M*J) SRF 960 

RETURN SRF 970 

END SRF 980- 


FRD 10 
FRD ?0 
FRD 30 
FRD 40 
FRD 50 
FRD 60 
FRD 70 
FRD 80 
FRD 90 
FRD 100 
FRD 110 
FRD 120 
FRD 130 
FPD 140 
FRD 150 
FRD 160- 


MAT 10 

MATRIX INVERSION WITH ACCOMPANYING SOLUTION OF LINEAR EQUATIONS MAT 20 


PROVIDED BY - ANALYSIS AND COMPUTATION DIVISION MAT 30 

LANGLEY RESEARCH CENTER MAT 40 

HAMPTON, VA. 23665 MAT 50 

DIMENSION IPTVOT(N), A (MAx,N) , B(MAX,N), IWK(MAX,?) MAT 60 

EQUIVALENCE (IROW.JROW), ( TCOLUM, JCOLUM) , ( AMAX,T,SWAp) MAT 70 

MAT 80 

initialization MAT 90 

MAT 100 

ISCALE=0 MAT 110 

Rl=10.0**10o MAT 120 

P2 = l « 0/R 1 MAT 130 

DETEPM=1.0 MAT 140 


SUBROUTINE SUPFOPD { W , XP , YP » ZP » N3 ) 

supface spline interpolation <ordinates> 

WPITTFN By - ROBERT N. DESMARAIS, STRUCTURES AND DYNAMICS DIV. 
LANGLEY RESEARCH CENTER, HAMPTON, VA, 23665 
DIMENSION W(N3,1) 

N=N3-3 
Nl=N+ 1 
N2=N+2 

U=W (N1 ,2) *W (N2,2)«XP*W (N3,2)*YP 
V=W { N 1 ,3) *W (N2,3) *XP.*W (N3,3) *YP 
ZP=W (Ml ,4) ♦W'(N2,4) *|i + W (N3,4) *V 
DO 10 I=1*N 

R2=(U-W(I»2) )**?♦ (V-W (1,3 ) )»«? 

0 ZP=ZP+W (I * A ) #R2# ALOG ( R2*W { 3 , 1 ) ) 

RETURN 

END 


SUBROUTINE MATTNV ( M AX , N , A , M , B , IOP , DETERM , I SC ALE , TP I VOT * I WK ) 
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DO 10 J=1»N 

MAT 

150 

10 

IPIVOT ( J) =0 

MAT 

160 


DO 370 1=1 tN 

MAT 

170 

c 


MAT 

100 

c 

SEARCH FOR PIVOT ELEMENT 

MAT 

190 

c 


MAT 

200 


AMAX=0.0 

MAT 

210 


00 60 J=1*N 

MAT 

220 


IF (IPIVOT ( J) -1 ) 20,60,20 

MAT 

230 

20 

DO 50 K=1*N 

MAT 

240 


IF (IPIVOT (K) -1) 30,50.410 

MAT 

250 

30 

IF (APS (AMAx)-ABS (A (J,K) ) ) 40,50,50 

MAT 

260 

40 

IROW= J 

MAT 

270 


ICOLUM=K 

MAT 

200 


AMAX=A(J,K) 

MAT 

290 

50 

CONTINUE 

MAT 

300 

60 

continue 

MAT 

310 


IF (AMAX) 80,70,00 

MAT 

320 

70 

DETERM=0.0 

MAT 

330 


iscalf=o 

MAT 

340 


GO TO 410 

MAT 

350 

00 

IPIVOT ( ICOLUM) =IPIV0T ( ICOLUM) *1 

MAT 

360 

C 

INTERCHANGE' ROWS TO PUT PIVOT ELEMENT ON DIAGONAL 

MAT 

370 

C 

MAT 

300 

C 


MAT 

390 


IF (IPOW-ICOLUM) 90,130,90 

MAT 

400 

90 

DETERM=-OETFRM 

MAT 

410 


DO 100 L=1»N 

MAT 

420 


SWAP=A ( IPOW,L) 

MAT 

430 


A(IROW,L) =A (ICOLOM.L) 

MAT 

440 

1 00 

A (ICOl.UM,L) =SWAP 

MAT 

450 


IF (M) 130,130,110 

MAT 

460 

no 

DO 120 L= 1 * M 

MAT 

470 


SWAP=R ( IROW,L) 

MAT 

480 


B(IROW,U=B(ICOLUM,L) 

MAT 

490 

120 

B(ICOLUM,L)=SWAP 

MAT 

500 

130 

i wk ( i , i ) = i Row 

MAT 

510 


IWK(I,2)=IC0LUM 

MAT 

520 


PIV0T=A ( ICOLUM, ICOLUM) 

MAT 

530 


IF (IOP.EO.l) GO TO 270 

MAT 

540 


IF (PIVOT) 140,70,140 

MAT 

550 
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c 

c 

c 

140 


150 


160 


170 

180 


190 

POO 

210 


2P0 


230 

240 


250 

260 

C 

C 

C 

270 

280 

290 

300 

310 


SCALE THE DETERMINANT 


PIVOTI=PIVOt 
IF (ABS (DETEPM)-Pl) 

determ=detepm/ri 

lSCALE=ISCA L f*l 
IF (ARS (DETERM)-Rl) 
DETERM=DFTEPM/R1 

iscalf=iscalf*i 

GO TO 200 

IF (ARS (DETEPM)-R2) 

determ=determ*pi 

ISCALF=ISCA U E-1 

IF (APS (DETEPM)-P2) 

DETEPH=DETEpm#ri 

ISCALF=ISCAle-1 

IF (ARS(PIVOTI)-Rl) 

PIV0TI=PIV0TI/R1 

ISCALE=ISCALE*1 

IF (ARS(PIVOTI)-Rl) 

PIVOTI=PIVOTI/P] 

ISCALF=ISCALE*1 

GO TO 260 

IF (APS (PIV0TD-R2) 
pivoti=pivoti#ri 

ISCALF=ISCALF-1 
IF (APS(PIV0TI)-P2) 
PIVOTI=PIVOTI»Pl 
ISCALE=ISCA L e_i 

DETERM=PETEpm*PIvOTI 


170*150*150 

200 * 160*160 

180*180*200 

190.190*200 

230*210.210 

260*220*220 

240.240.260 

250*250.260 


DIVIDE PIVOt ROW BY PIVOT ELEMENT 


IF (PIVOT) 280*70.280 
A(ICOLUM,ICOLUM)=1.0 
DO 290 L=1»N 

A(ICOLUM,L)=A (ICOLUM,L) /PIVOT 
IF (M) 320*320,300 
DO 310 L=1*M 

B (ICOLUM,L)=R (IC0LUM,L) /PIVOT 


MAT 560 
MAT 570 
MAT 580 
MAT 590 
MAT 600 
MAT 610 
MAT 620 
MAT 630 
MAT 640 
MAT 650 
MAT 660 
MAT 670 
MAT 680 
MAT 690 
MAT 700 
MAT> 710 
MAT 720 
MAT 730 
MAT 740 
MAT 750 
MAT 760 
MAT 770 
MAT 780 
MAT 790 
MAT 800 
MAT 810 
MAT 820 
MAT 830 
MAT 840 
MAT 850 
MAT 860 
MAT 870 
MAT 880 
MAT 890 
MAT 900 
MAT 910 
MAT 920 
MAT 930 
MAT 940 
MAT 950 
MAT 960 
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c 


MAT 970 

c 

REDUCE NON-PIVOT ROWS 

MAT 980 

c 


MAT 990 

320 

DO 370 11=1. N 

MAT1000 


IF (Ll-ICOLUM) 330,370.330 

MAT1010 

330 

T=A CU ♦ ICOLlJM) 

MAT1020 


A(L1,ICOLUM)=0.0 

MAT1030 


DO 340 1=1 *N 

MAT1040 

34 0 

A (Ll.L)=A(Ll,L)-A (IC0UIM,L)«T 

MAT1050 


IF {M ) 370,370,350 

MAT1060 

350 

DO 360 L=1*M 

MAT1070 

360 

B(L1»L)=B(L1,L)-B(IC0LUM,L)*T 

MAT1080 

370 

continue 

MAT1090 

C 


MAT1100 

C 

interchange COLUMNS 

MAT1110 

C 


MAT1120 


DO 400 I=1»N 

MAT1130 


L=N+1-I 

MAT1140 


IF ( IWK (L » 1 ) — IWK (L » 2) ) 300,400,380 

MAT1 150 

380 

JROW=IWK(L,l) 

MAT1160 


JCOLUM=IW* (L,P) 

MATH70 


DO 390 K = 1 * N 

MAT1180 


SWAP=A (K, J«OW) 

MAT1190 


A (K, JROW)=A (K, JCOLUM) 

MAT1P00 


A (K,JCOLUM)=SWAP 

MAT1210 

390 

continue 

MAT1220 

400 

continue 

MAT1230 

410 

RETURN 

MAT1240 


END 

MAT1250 



OVERLAY ( LE VSP ,5,0) 

NSP 

10 


PROGRAM NEWSHAP 

NSP 

20 

C 

SETS UP DIMENSIONS FOR COMPUTING THE NEW LOCATIONS OF 

leading-edgensp 

30 

C 

AND TRAILING-FDGF VOPTICES BY MAKING THOSE FORCE-FREE 

NSP 

40 


COMMON D ( 1 ) 

NSP 

50 


COMMON /ALL!/ NSW,NSW1 , NCW , NWNG , NCPTTL 

NSP 

60 


COMMON /ABC/ PXF(10.40) ,PYE(10,40) ,PZE(10,40) ,PXXE(11 

,20), NSP 

70 


1PYYE ( 1 1, 20 ) ,P7ZE{ 11,20) , NMAX ,NNMAX,NCONTS 

NSP 

80 


LC=1 

NSP 

90 



o o 


C 


LTHFTP=LC+Nswi 

NSP 

100 

LXN=LTHFTP-*-NSWl 

NSP 

110 

LYN=LXN+2*NwN0 

NSP 

120 

lxte=lyn+2*nwng 

NSP 

130 

LXLE=LXTE+Nsw 

NSP 

140 

LYLE=LXLE*Nsw 

NSP 

150 

lcons=lyle*nsw 

NSP 

160 

LSI=LOONS-*-Nswi 

NSP 

170 

LXCP=LSI+NCw 

NSP 

180 

LYCP=LXCP+NCPTTL 

NSP 

100 

LCI=lYCP*NCPTTL 

NSP 

POO 

lcj=lci*nwng 

NSP 

210 

LCK=LCJ+NWNG 

NSP 

220 

LC0NI=LCK+NWNG 

NSP 

230 

LC0NJ=LC0N1 + NWNG 

NSP 

240 

LCONK=LCONJ+NWNG 

NSP 

250 

LDUMY=LCONK+NWNG 

NSP 

260 

LGAMA=LDUMY+P»NWNG 

NSP 

270 

LGML=LOAMA+NCPTTL 

NSP 

280 

LYLM=LGML + NSW1 

NSP 

290 

LCPCW=LY|_M + NSW1 

NSP 

300 

LNFXT=LCPCW*NSW1 

NSP 

310 

LNEXT = 21»NWNG*14*NSW*.NCW-9 

NSP 

320 

CALL NFWELM <C(LC> *0 (LTHFTP ) *D(LXN) *D (LYN) ,D(LXTE) *D (LXLE) ,D(LYLE)NSP 

330 

1*D (LCONS) *D(LSI) ,0 (LXCP) ,0(LYCP) ,D(LCI) , 

D(LCJ) *D(LCK) ,D(LCONI) ,D(LNSP 

340 

2C0NJ) ,0(LC0NK) *0 (LDuMY) *nwng*ncpttl*nswi 

• NSW » NCW * D (LGAMA) ,D(LGML) ,NSP 

350 

3D (LYLM) *D (LCPCW) ) 

NSP 

360 

RETURN 

NSP 

370 

END 

NSP 

380 


SUBROUTINE NEWFLM ( C , THETP , XN , YN , XTE , XLE , YLE , CONS ,Sl * XCP * YCP , Cl , C JNLM 10 
1 *CK, CON I, CON J, CONK, DUMMY »NWNG,NCPTTL» NSW 1, NSW *NCW, GAMA, GML*YLM.CPCNLM 20 


2W1) 


NLM 

30 

COMPUTES THE NEW LOCATIONS OF LEADING-EDGE 

AND TPAILING-EDGE 

NLM 

40 

VORTICES BY MAKING THOSE FORCE-FREE 


NLM 

50 

COMMON /INDEX/ IND 


NLM 

60 

COMMON /GM/ ITER 


NLM 

70 

COMMON /LOC/ FU1,FU2,XEND,PXL(5) ,PXT(5) ,PYL(5) *ICL 

NLM 

80 

COMMON /GENCE/ Ml <5 ) , NW ( 2 ) , YBREAK (5 ) , CH ( 90 ) 

*SJ (31 *3) »MJW1 (2) * 

NLM 

90 


197 



1MJW2 (?) ♦WIDTH (5) .SWEEP (60) ,NTS,NC NLM 

COMMON /LANDA/ FGMAl , FBDA1 ,F6MA,CLS NLM 

COMMON/CAMB/ ICAM,IM(10) ,XT<10*21) .AAM(10,20) ,BBM(10,?0) * NLM 

1CCM (10,20) ♦ DOM (10, 20) ,YT(10) ,7BDX(?00) ,ZB0XV(200) NLM 

COMMON /TIP VX/ XTIP(15,30) ,YTIP(15,30) ,7TIP(15,30) ,NTLM(15) ,NTMAX NLM 
COMMON /NCTt/ NCT,NC0N,NBT,NC0R(15) ,KU1,NFSH(1F) ,KUC NLM 

COMMON /ABC/ XE { 1 0 • 40 ) • YE < 10,40 ) *ZE.( 1 0 ,40 ) ,XXE ( 1 1 *20 ) , NLM 

1YYE<11,20> ,Z7E(] 1,20) ,NMAx ,NNMAX ,NCONTS NLM 

COMMON /OABC/ DXE ( 1 0 » 40 ) » DYE ( 1 0 » 40 ) » DZE ( 1 0 , 40 ) NLM 

COMMON /ALLRB/ AX(210) ,ZMIN,NELM(11) ,NNELM(12) NLM 

COMMON /LOCsP/ FTANTY (10,15) *FTANTZ ( 1 0 , 15) , CTANTY (40 , 2) *CTANTZ (40 »NLM 
12) NLM 

COMMON /INFAV/ FYT(20) ,FZT(20) *FYI (40) *FZI (40) ,VXI (40) f VYI (40) ,VZINLM 
1 (40) ,FXT(20) ,TFORCE(20) NLM 

COMMON /MDFAV/ FYP ( 40 * 2 * ? ) • FZP ( 40 , 2 , 2 ) NLM 

COMMON /ALLRA/ TTL(16) , ALPHA, SINA,AM9) , PI, AB(?) ,HALFB, AREA NLM 

COMMON /AERO/ NAERO , MAxL , MAX W , ISPAN , ISF , ITRAKF , ISC NLM 

COMMON /XSTN/ XBRR(?5) NLM 

DIMENSION DUMMY(l), CONI(l), CON J ( 1 ) , CONK ( 1 ) , CI(1), C J ( 1 ) , CK ( 1 ) NLM 
1, C(l), THtTP(l), XTE(l), XLF(l), YLE(l), CONS ( 1 ) , Sl'(l), XCP(l), NLM 
2YCP ( 1 ) , GAMA(l), GML(l), YLM(l), CPCWl(l), XN(NWNG,2). YN (NWNG,2) »NLM 
3A(3) ,B(3) »F(3) NLM 

DIMENSION Ftx (10,10) ,FTY(10*10) *FTZ(10*10) ,SFBDA(40,2) ,SFGMA (40,2) NLM 
COMMON /COEFF/ CL*F7MINS(10) ,FHS(2, 10) ,PATT0S(2, 10) * NLM 

1CFCORE(?,10) ,RATI0C(2*10) NLM 

OIMENSION GT(IO) ,GA(3) ,XB(40,2) »YB(40,2) ,ZB(40*2) NLM 

DIMENSION FSIN(4) ,XF1 (10,40) ,YE1 (10,40) ,7E1 (10,40) NLM 

DIMENSION XE 2 (10,40) »YE2(10,40) »ZE2{10,40) ,TOS ( 15 ) NLM 

NLM 

REWIND 1 NLM 

CALL SKIPR ( 1 , 7 ) NLM 

READ (1) <C(I) ,I=1,NSW1) NLM 

READ (1) (THETP(I) ,I=1,NSW1) NLM 

READ (1) (XTE(I) ,XLE(I) ,YLE(I) »I*1,NSW) NLM 

READ (1) (XLM,YLM(I) ,I*1,nsW1) NLM 

READ (1) (CONS(I) ,I=1,NSW1) NLM 

READ (1) CSl (I) ,AC,I=1,NCW) NLM 

READ (1) (XCP(I) ,YCP(I) ,I=1,NCPTTL) NLM 

READ (1) ( (XN(I,J) ,YN(I,J) ,J=1,2) ,I=1,NWNG) NLM 

CALL SKIPR (1,2) NLM 

READ (1) (CPCWl (I) ,1=1, NCW) NLM 


100 

110 

120 

130 

140 

150 

160 

170 

180 

190 

200 

210 

220 

230 

240 

250 

260 

270 

280 

290 

300 

310 

320 

330 

340 

350 

360 

370 

380 

390 

400 

410 

420 

430 

440 

450 

460 

470 

480 

490 

500 



REWIND ? 


NLM 

510 

read (?) <gama m ,i=i,ncpttl> 


NLM 

520 

REWIND 3 


NLM 

530 

READ (3) (GML(I) *I=1,NSW1) 


NLM 

540 

BHALF=1 ,?5*HALFB 


NLM 

550 

ATL=1.-0.1*FLOAT (ITFP) 


NLM 

560 

IF (NCONTS.NE.O) ATL=0.7B 


NLM 

570 

IF (ATL.LT. 0.75) ATL=0.75 


NLM 

580 

BTL=1 ,-ATL 


NLM 

590 

IF (ITEP.LE.KUI) GO TO 70 


NLM 

600 

KU5=KU1+1 


NLM 

610 

KU6=KUl+2 


NLM 

620 

KU7=KU1 +3 


NLM 

630 

NSW 1=MAXL 


NLM 

640 

DO ?0 T = 1 ♦ Nsw 1 


NLM 

650 

GT ( I ) =0 • 


NLM 

660 

K 1 = 1 


NLM 

670 

IF (ITPAKE.NE.I. AND. I.GE.M1 (1) ) K1=M1(1) 


NLM 

680 

GT ( I ) =GT ( I ) + GAMA (NWNG+K1 ) 


NLM 

690 

K 1 ] ♦ 1 


NLM 

700 

IF (Kl.GT.I) GO TO ?0 


NLM 

710 

GO TO 10 


NLM 

720 

continue 


NLM 

730 

COMPUTATIONS OF RELAXATION PARAMETERS FOP THE 

CORE MODEL 

NLM 

740 

ALPA=ALPHA«ieo./Pl 


NLM 

750 

alphb=alpha 


NLM 

760 

IF (ALPA.LT. 10. ) ALPHB=10.*PI/180. 


NLM 

770 

IF (ITFR.EQ.KU5) GO TO 30 


NLM 

780 

IF (ITFP.EQ.KU6) GO TO AO 


NLM 

790 

IF (ITER.GE.KU7) GO TO 70 


NLM 

800 

continue 


NLM 

810 

FRDA=0 . 


NLM 

820 

FGMA=0. 


NLM 

830 

IF (CL.GT.CLS) FP DA=- (CL-CLS) *SIN (ALPHA)/ CLS 


NLM 

840 

fbda=?.*fbda 


NLM 

850 

IF (CL.LT.CLS) FGMA=-1.5*(CLS-CL)/(CLS*TAN(ALPHB) ) 

NLM 

860 

IF (CL. LT.CLS. A ND.ALPA.LT. 20, .AND.ALPA.GE. 10.) 

FGMAs0.5*FGMA 

NLM 

870 

IF (CL. LT.Cls.AND.ALPA.LT. 10.) FGMA=0 . 50*FGMA 


NLM 

880 

fgmai=fgma 


NLM 

890 

GO TO 60 


NLM 

900 

CONTINIJF 


NLM 

910 



o o o 


50 

60 


70 


FBDA=0. 

NLM 920 

FGMA=0. 

NLM 930 

FGMA1=0. 

NLM 940 

IF (ICL.FQ.l) GO TO 50 

NLM 950 

FBDA=- (CL-CLS) *S IN (ALPHA) /CLS 

NLM 960 

GO TO 60 

NLM 970 

FGMA=0.75* (CL-CLS)/ (CLS*TAN (ALPHR) ) 

NLM 980 

fgmai=fgma 

NLM 990 

continue 

NLM1000 

IF (CL.GT.CLS) const=fbda 

NLM1010 

IF (CL.LT.CLS) CONST=FGmai 

NLM1020 

IF (CL.GT.CLS) ICL-1 

NLM1030 

IF (CL.LT.GLS) ICL-0 

NLM1040 

CONTINUE 

NLM1050 

IF (ITER.EQ.KU1.) GO TO 220 

NLM 1060 

IF ( ITER. GT. KU1) GO TO 260 

NLM 1 070 

DIFFUSED VOptEX FILAMENT MODEL 

NLM1080 

CALCULATION OF THE COORDINATES OF LEADING-EDGE 

■ELEMENTS BY NLM1090 

SATISFYING FORCF-FPEF CONDITION 

NLM1100 

NBT = 0 

NLM1110 

DO 120 J-5 » NMAX 

NLM1120 

DO 120 I=2*MAXL 

NLM1130 

NCON= I 

NLM1 140 

K=NELM(I)-1 

NLM 11 50 

TF :{J.GT. ; Ki) .'GO "TO 120 

NLM1160 

XXX=XF(I, J+l ) 

NLM1170 

YYY=YE(I»J + 1) 

NLM 1.1 80 

ZZZ=ZE(I.J+1) 

NLM1190 

'DL'S-SOPT ( (XE (7 . J + 1 ) -XE ( I . J ) ) **2* ( YE:( I . J+l ) -YF:( ] 

t * J ) ) ( ZE ( I ♦ J* 1 ) -NLM 1200 


■LZEtf ,J))**2) NLM1210 

XEE=(XF(I*J)+XF.'rT^+!')i)./2. NLM1220 

YEE= (YF (1*0) ♦ YFi< * ♦ •) /.?.. NLM 1230 

ZFE=(7F(I*'J)+.7F(T^J-*1?)0/2. NLM1240 

CALL NEWVtL ;(?Cs*1T MET P-, X FF»Y F E-» 7EE^XN,YN .XTE, YLE .CONS , DUMMY , CON I , CONNLM1250 
1 J .CONK , S I » NSW 1 VNCW ,NWNO ♦ C7-, C J * CK, XUF rUU . V V , WW ♦ CPCW1 , XCP . YCP , GAM A , YNLM1 260 
2LM) NLM 1270 

UVW=sqpT ( UU«UU + VV*VV + WVH*WW.) NLM1280 

IF (vJ.E0.5) -GO TO 80 NLM 1290 

VVA=ATL ft V V/UVW NLM1300 

WWA=ATL»WW/UVW NLM1310 

DLY=VVA*OLS + BTL*(YE(T,J+] )-YE(I,J) ) NLM1320 


200 



o n 


0L7=WWA«r)LS + BTL*(7F(I*J+l)-7E{I»J) ) 

GO TO 90 
flO CONTINUE 

VVA=0.5*VV/UVW 
WWA = 0.5«WW/UW 

DLY=WA»DLS*o.5*(YE(I»J*1)-YE(I,J) ) 

DLZ=WWA*DLS + o.5« (7E(I.J+1)-7E ( I » J) ) 

GO TO 100 
90 CONTINUE 

IF ( (OLZ/DLS) .GT.SINA) DL7=DLS»SINA 
100 CONTINUE 

YINT=YE (I*J) ♦DLY 
ZINT=7F (1*0) *nL7 

IF (YINT.LE.YF (2.5) ) YINT=YE(2,5) 

IF (YTNT.GE.RHALF) yint=rhalf 
IF (7INT.LE.7MIN) 7TNT=ZMIN 
DLY2=YINT-YE(I,J) 

DL72=7INT-ZF(I,J) 

DLX22=DLS*DLS-0LY2«DLY2-DL72*DLZ2 
IF (0LX22.LE.0. ) DLY?=DLY?/2. 

IF (OLX22.LE.O.) DL22=OL72/2. 

DLX2=SQPT (DLS*0LS-DLY2*nLY2-DLZ2*DLZ2) 

XE(I,J*1)=XE(I,J)*DLX2 
YE (I,J*1)=YE(I*J)+DLY? 

ZE(I,J*1)«ZE(I,J)*0LZ2 
DX=XE(I*J+1)-XXX 
DY-YF (I*J + 1)-YYY 
DZ=7E (I*J+1)-Z77 
J2= J+2 
KP=K+1 

IF (J2.GT.KP) GO TO 120 
00 110 JK=J2,KP 
XE(I«JK)=Xt (I. JK)+DX 
YE(I,JK)=YE(l,JK)+DY 
110 ZE(I,JK)=ZE(l,JK)*nz 
120 CONTINUE 
130 CONTINUE 

CALCULATION OF THE COORDINATES OF WAKE ELEMENTS BY SATISFYING 
FORCE-FREE CONDITION 
NAERO=0 
CTL = 0 .5 


NLM1330 

NLM1340 

NLM1350 

NLM1360 

NLM1370 

NLM1380 

NLM1390 

NLM1400 

NLM1A10 

NLM1420 

NLM1430 

NLM1440 

NLM1450 

NLM1460 

NLM1470 

NLM1480 

NLM1490 

NLM1500 

NLM1510 

NLM1520 

NLM1530 

NLM1540 

NLM1550 

NLM1560 

NLM1S70 

NLM1580 

NLM1590 

NLM1600 

NLM1610 

NLM1620 

NLM1630 

NLM1640 

NLM1650 

NLM1660 

NLM1670 

NLM1680 

NLM1690 

NLM1700 

NLM1710 

NLM1720 

NLM1730 
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DTL=1.-CTL NLM1740 
NC0M=0 NLM1750 
NBT=0 NLM1760 
DO 160 J= 1 ♦ NNMA X NLMJ770 
DO 160 1=2 » MAXW NLM1780 
NCT=I NLM1790 
K=NNEL M ( I ) ”1 NLM1800 
IF ( J.GT.K ) GO TO 160 NLM1810 
XXX = XXF ( I * vJ+ 1 ) NLM18P0 
YYY=YYE ( I » J* 1 ) NLM1830 
ZZZ=77E ( I * J+ 1 ) NLM1840 


WLS=SOPT ( (XxE CI,J*1 ) -XXE (I, J) ) (YYE ( I t J* 1 ) -YYE ( I , J) )** 2 * (ZZE ( I *NLM1850 
1J+1 J-77E (I »J ) )«»?) NLM1860 

XEE=CXXE(1.J)*XXE(I,J*1> >/2. NLM1870 

YEE=(YYE(I»J)*YYF(I,J*1) )/?. NLM1880 

ZEE=(7ZE{I»J)+Z7F(I»J*1) )/?, NLM1890 

CALL NEWVEL (C , THETP, XEE , YEE ,7EE , XN * YN , XTE , YLE ,CONS , DUMMY, CONI .CONNLM1900 
1J,C0NK,SI*NSW1 * NCW » NWNG » C I *CJ»CKfXLE» UU *W|WW* CPCW1 y XCP t YCP * GAMA * YNLM 1910 


2LM) 

UVW=SORT (UU#UU+VV*VV+WW«WW) 

IF (J.FO.l) GO TO 150 

VVA=CTL«VV/UVW 

WWA=CTL*WW/UVW 

DLY=VVA*WLS*DTL»(YYF<If J* 1 ) -YYE ( I , J ) ) 
DLZ=WWA*WLS*0TL#(7ZE(I.J*1 j-7ZE(I,J) ) 

IF ( (DL7/WLS) .GT.SINA) DL7=WLS*SINA 
YINT=YYE ( 1 *J) *DLY 

IF (YINT.Lt. (YLF(?)/?.) ) YlNT=YLE(2)/2. 
IF (YINT.BE.PHALF) yint=rhalf 
DLY2=YINT-YYE(I,J) 

DLZ2=OLZ 

DLXP2=WLS*WLS-DLY2*DLY2-DL72*DLZ2 
IF (DLX22.LE.0. ) DLY2-DLY2/2 • 

IF (DLX22.LE.0.) DL72=0L72/2. 

DLX2=S0RT(WLS«WLS-DLY2*DLY7-DL72«DL72) 

XXE ( 1 1 J+ 1 ) = XXE ( T * J) *DLX2 

YYE(I,J*1 >=YYE(I,J}*0LY2 

ZZE(I*J*1>=77E(T»J) +DLZ2 

DX=XXF ( I « J+l ) -XXX 

DY=YYE(I»J«-1)-YYY 

nZ=Z7E(I»'J + l)-777 


NLM1920 

NLM1930 

NLM1940 

NLM1950 

NLM1960 

NLM1970 

NLM1980 

NLM1990 

NLH2000 

NLH2010 

NLM2020 

NLM2030 

NLM2040 

NLMP050 

NLM2060 

NLM2070 

NLM2080 

NLM2090 

NLM2100 

NLMPHO 

NLM2120 

NLH2130 

NLM2140 
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140 

150 

160 


J2= J+? 

KP=K * 1 

IF (JP.GT.KP) GO TO 150 

DO 140 JK=J2,KP 

XXF(I,JK)=XXF(I,JK)+DX 

YYE(I*JK)=YYE(I,JK)+DY 

ZZE(I,JK)=Z2F(I,JK)*DZ 

continue 

CONTINUE 

CALCULATION OF THE COORDINATES OF TIP VORTICES 
FORCE FREE CONDITION 

IF <(PXT(NC+i).pxL(NC+l)).EQ.O a ) GO TO 210 

CTL=0 .5 

DTL= 1 ,-CTL 

NCON=0 

NBT = 0 

DO 190 J=1»NTNAX 
DO 190 1 = 1 * NCW 
NCT = I 

K=NTLM(I ) -1 

IF (J.GT.K) GO TO 190 

XXX=XTIP(I*J+1) 

YYY=YTIP ( I » J*1 ) 

ZZZ = ZTIP ( X * J ♦ 1 ) 

TLS=SORT ( (XTIP(T*J+1)-XTIP(I*J) ) **2 + ( YTIP ( I ♦ J* 
IIP (I*J+1)“ZTIP(I * J) )**2) 

XEE=0.5# (XTlP(I,J+l) +XTIP(I*J) ) 

YEE=0.5* (YTIP{I,J*1)+YTIP(I*J) ) 

ZEE=0.5* (ZTip ( I,J+1)+ZTIP(I*J) ) 

CALL NEWVtL (C,THETP,XEE»YEE,ZEE,XN,YN,XTE,YLF 
1 J » CONK » S I *N«;wi ,NCW,NWNG,CI , C J , CK , XLE , UU * VV , WW ♦ 
2LM) 

UVW=SORT (UU*»2*VV»*2+WW»*2) 

IF (J.EO.l) GO TO 180 

VVA=CTL*W/UVW 

WWA=CTL*WW/UVW 

DLY=VVA<»TLS + DTL*(YTIP(I,J + 1)-YTIP(I*J) ) 
DLZ=WWA#TLS«.DTL»(ZTIP (I*J+1)-ZTIP(I,J) ) 
DLX=SOPT (TLs«#?-DLY»* 2-DLZ**2) 
XTIP(I,J*1)=XTIP(I,J)+DLX 
YTIP(I,J*l)=YTIP(If J) +DLY 


BY SATTSFING 


NLM2150 
NLM2160 
NLH2170 
NLM21R0 
NLM2190 
NLM2200 
NLM2210 
NLH2220 
NLM2230 
NLM2240 
NLH2250 
NLM2260 
NLH2270 
NLM2280 
NLM2290 
NLM2300 
NLM2310 
NLH2320 
NLM2330 
NLH2340 
NLM2350 
NLM2360 
NLH2370 
NLMP380 

1)-YTIP(I«J))**2* (ZTNLM2390 

NLM2400 

NLM2410 

NLM2420 

NLM2430 

, CONS, DUMMY, CONI, CONNLM2440 

CPCW1 « XCPtYCP f GAHA,YNLMp450 

NLMP460 

NLM2470 

NLHP4R0 

NLM2490 

NLMP500 

NLMP510 

NLM2520 

NLM2530 

NLMP540 

NLMP550 
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o r> 


170 

180 

190 


200 

210 

220 


C 


230 


ZTIP(I*J*1>=7TIP(I*J)*0LZ 

IF (7TIP(I*J*1) .LE.0..AND.yTIP(I,J* 1> .LE.HALFR.AND.XTIP ( I * J+1 > 
1PXT(NC*1)) ZTIP (I»J+1 )=ZMIN 
DX=XTIP(I*J*1)-YXX 
DY=YTIP(I»J*1)-YYY 
DZ=ZTIP(I*J*l)-777 
J2=J*2 
KP=K ♦ 1 

IF (J2.PT.Kp) G o TO 180 
DO 170 JK=J2»KP 
XTIP(I,JK)=XTIP(ItJK) *OX 
YTIP(I,JK>=YTIP(I* JK)*DY 
ZTIP(I,JK)=ZTIP(I*JK) +07 
CONTINUE 
CONTINUE 
DO 200 1 = 1 * NCW 
KK=NTLM(I) 

WRITE (6,740) 

WRITE (6,740) 

WRITE ( 6 » 74 0 ) 

continue 

CONTINUE 
RETURN 
CONTINUE 
DETERMINE 

ESTARLISHEU 

nswi=maxl 

CALL CORF (X8,YR,7B,xENn,0AMA f NSWl *NELM,NWN6,NX8) 

CALL MODEL (XB,YB,ZB,NELM,NXB.M1 ,LASTE) 

<NC0P,NFLM,M1,LASTE) 

(NFLM t NCOR,Ml ) 


(XTIP (I * J ) * J= 1 * KK ) 
(YTIP ( T * J) , J=1 ,KK) 
(7TIP ( I , J) * J=1 »KK ) 


THE INITIAL SHAPE OF FREE SHEET AND CORE FROM THE 
LEADING-FDGE VOPTEX FILAMENT system 


CALL LIRITN 
CALL APFXC 
NSW 1 =MAXL 
NSW=MA XW 
PUNCH CARDS 
PUNCH 760* 

DO 230 1 = 1 * NSW 1 
K=NELM ( I ) 

PUNCH 7S0* 

PUNCH 750* 

PUNCH 750* 
CONTINUE 


FOR ANGl E OF ATTACK 
(NELM(I) *I=l*NSWl ) 


(XF(I.J) ,J=1,K) 
(YE (I.J) ,J=1 , K ) 
(ZE ( I * J) * J= 1 » K ) 


IS LFSS THAN TWENTY DEGREES 


NLM2560 

.LE.NLM?570 

NLMP580 

NLM2590 

NLM2600 

NLM2610 

NLM2620 

NLMP630 

NLM2640 

NLM2650 

NLM2660 

NLM2670 

NLM2680 

NLM2690 

NLM2700 

NLM2710 

NLM?720 

NLMP730 

NLM2740 

NLM2750 

NLM2760 

NLMP770 

NLM2780 

NLM2790 

NLM2800 

NLM2810 

NLM2820 

NLMP830 

NLM2840 

NLMP850 

NLM2860 

NLM2870 

NLM2880 

NLM2890 

NLM2900 

NLM2910 

NLMP920 

NLM2930 

NLM2940 

NLM2950 

NLM2960 



240 


250 

260 

C 


C 

C 


270 

280 

290 


PUNCH 760* (NMFLM(I) *I=1*NSW) 

DO 240 1=1 *NSW 
K=NNELM { I ) 

PUNCH 750* (XXE(ItJ) *J=1*K) 

PUNCH 750* (YYF ( I * J) * J“1 *K) 

PUNCH 750* <Z7F(I,J> ,J=1,K) 
CONTINUE 

IF ((PXT(NC + ij-pxL(NC*1)).EQ.O,) 
PUNCH 760* (NTLM(I) »I=1»NCW) 

DO 250 I=1*NCW 
K=NTLM (I ) 

(XTIP(IyJ) » J= 1 * K ) 
(YTIP (I. J) , J=1 * K ) 
(ZTIP(I.J) * J= 1 » K ) 


RETURN 


PUNCH 750* 

PUNCH 750* 

PUNCH 750* 

CONTINUE 
RETURN 

continue 

VORTFx CORE MODEL 
NAERO=l 

CALL CFAEC ( C * THFTP » XN » YN * XTE * XLE * YLE * YLM *CONS 
lY * SI .NSW 1 * NCW *NWNG * Cl *CJ*CK* CPCW 1 * XCP * YCP «GAMA 
CALCULATION OF THE NEW LOCATIONS OF FREE SHEET 
SATTSFING FORCE FREE CONDITION 
NAERO=0 

DO 290 I=2»MAXL 

IF (ITPAKE.NE.1.AND.I.EO.M1 (1) ) GO TO 290 

NCR2=NC0R(I)-2 

DO 280 J=5*NCP2 

A(l)=XE(I*vl*l).xE(I*J) 

A(2)syE(I*J+1)-YE(I,J) 

A(3)=ZF ( I » J+ 1 ) -7F ( I , J) 

IF (J.FO.NCr?) GO TO 270 
FTANTY(I*J)=A(2)/A(1) 

FTANT7(I.vJ)=A(3) /A (1 ) 

GO TO 280 
TOS ( I ) =A ( 3 ) 

continuf 
continue 
LL= 1 
L 1 = 1 
KS = ? 


NLHP970 

NLM2980 

NLM2990 

NLM3000 

NLM3010 

NLH3020 

NLM3030 

NLM3040 

NLM3050 

NLM3060 

NLM3070 

NLM3080 

NLM3090 

NLM3100 

NLM3110 

NLM3120 

NLM3130 

NLM3140 

NLM3150 

. CONI « CON J* CONK *Dl)MMNLH31 60 


*ARFA,ITER*GT*1) 

segments by 


NLM3170 

NLM3180 

NLM3190 

NLM3200 

NLM3210 

NLM3220 

NLM3230 

NLM3240 

NLM3250 

NLM3260 

NLM3270 

NLM3P80 

NLM3290 

NLM3300 

NLM3310 

NLM33P0 

NLM3330 

NLM3340 

NLM3350 

NLM3360 

NLM3370 
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300 

310 

3?0 

330 

340 


KE=M1 (1)-1 
GO TO 310 
LL=2 
L 1=M1 (1) 

KS=M1 (1 ) +1 

KE=MAXL 

CONTINUE 

IF (ITRAKE.NE.1 .AND. ITEP.GE.KU7) 60 TO 320 
IF (ITER.EQ.KU5) GO TO 330 
IF ( ITRAKE. EO.l. AND, ITER. GE.KU7. AND. RATIOS 
1 320 
ATL=0 . 5 
BTL=0 . 75 
GO TO 340 

atl-o.qo 

BTL=0.95 
GO TO 340 
ATL=0 . 5 
BTL=0.5 
continue 

NCR2=NCOP < L 1 )-2 
DO 430 J=5,NCP? 

DO 420 I=KS,KE 
GMAsGAMA (NWNG*I) 

X X X a X E ( I * J + 1 ) 

YYY=YF ( I * ) 

7ZZ=7E(I,J*l) 

NBT=0 

NCON=I 

XEE=0.5*(Xt(l,j )+ xE(If J*l) ) 
YEE=0.5*(YE(I,J)*YE(I,J*1) ) 
ZEE=0.5*(ZE(I,J)+ZE(I*J+1) ) 

CALL NEWVEL (C,THETP,XEE,YEE,ZEE,XN,YN,XTE 
lJ,CONK,SI,Nsyi,NCW,NWNG,Cl,CJ,CK,XLE,UU,W 

2LM) 

A(1)=XE(I*J*1)-XE(I,J) 

A(2) a YE(I*'J + l) - YE { I , J ) 

A (3) a 7E ( I » J*1 ) -7E ( I * J) 

DLS=SQRT (A( 1) »»2+A (2) *»2*A (3) **2) 

GA ( 1 ) =6MA*A (i ) /APEA 
GA (2) =GMA»A (?) /AREA 


NLM3380 

NLM3390 

NLM3400 

NLM3410 

NLM3420 

NLM3430 

NLM3440 

NLM3450 

NLM3460 

(LL*ITEP) .LE.0.05) GO TONLM3470 

NLH3480 

NLM3490 

NLM3500 

NLM3510 

NLM3520 

NLM3530 

NLM3540 

NLM3550 

NLM3560 

NLM3570 

NLM3580 

NLM3590 

NLM3600 

NLH3610 

NLM3620 

NLM3630 

NLM3640 

NLM3650 

NLM3660 

NLM3670 

NLH3680 

NLM3690 

*YLE, CONS t DUMMY, CONI, CONNLH3700 

,WW,CPCW1 ,XCP*YCP,GAMA,YNLM3710 

NLM3720 

NLM3730 

NLM3740 

NLM3750 

NLM3760 

NLM3770 

NLM3780 
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GA(3)=GMA»A(3)/ARFA 

B ( 1 ) =UU 

B(?)=VV 

B(3)=WW 

CALL CPSPBD (R.GA.F) 

FTX ( I « J ) =F <1) 

FTY ( I » J ) =*■ (?) 

FT7(I»J)=F (3) 

IF (I.EO.KS.AND.LL.EO.l) GO TO 420 

IF (J.FO.NCrpj GO TO 410 

TANTY=VV/UU 

TANTZ=WW/UU 

IF (J.FQ.b) GO TO 350 

TANTY= ( 1 .-ATL) »TANTY*ATL»FTANTY ( I , J) 

TANTZ= ( 1 .-ATL) *TANTZ-t-ATL*FTANTZ ( I, J) 

GO TO 360 

350 TANTY=(1.-BTL ) *TANTY*BTL*FTANTY { I . J) 

TANTZ= ( 1 .-BTL) *TANT7*BTL«FTANTZ ( I f J) 

360 CONTINUE 

DLX=DLS/SQRT ( 1 , ♦TANTY**2*TANTZ*#2) 

OLY=DLX tt T ANjy 

DLZ=DLX*TANT7 

XE(T,J*l)=XF(I,J)*OLX 

YE (I*J*1) = YF(I,J)*DLY 

ZE(I,J*1)=ZE(I,J)*DL7 

IF (lTFR.tQ.KU5) GO TO 380 

IF (ZE(I*J*1) .LT.FZMINS(I) .AND.J.EQ.5) GO TO 370 
GO TO 380 

370 ZE(X«J«1)»F7MINS(I) 

DLZ=ZE ( I , J+l >-777 
OLY=SQPT (DLS**2-DLX»*2-DL7«*2) 
YE(I*J*1)=YE{I*J')*0LY 
380 CONTINUF 

DX = XF ( I « J+ 1 ) -XXX 
DY=YE ( I * J+ 1 ) -YYY 
D7=ZE(I»J*l)-777 
J2= J+? 

KP=NCOR(I)-l 
IF (JP.GT.Kp) GO TO 400 
DO 390 JK=J?,KP 
XE(I,JK)=XE(I,JK)*DX 


NLM3790 
NLM3800 
NLM3810 
NLM3820 
NLM3830 
NLM3840 
NLM3850 
NLM3860 
NLM3870 
NLM3880 
NLM3890 
NLM3900 
NLM3910 
NLM3920 
NLM3930 
NLM3940 
NLM3950 
NLM3960 
NLM3970 
NLM3980 
NLM3990 
NLM4000 
NLM4010 
NLM4020 
NLM4030 
NLM4040 
NLM4050 
NLM4060 
NLM4070 
NLM4080 
NLM4090 
NLM4100 
NLM4110 
NLM41 20 
NLM4130 
NLM4140 
NLM4150 
NLM4160 
NLM4170 
NLM4180 
NLM4190 
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YE<I»JK)=YE(I,JK)+DY 

NLW4200 


ZE(I.JK)=Zt<i,jK)*D7 

NLM4210 

390 

CONTINUE 

NLM4220 

400 

continue 

NLM4230 


GO TO 420 

NLM4240 

410 

NCR3=NCP2*1 

NLM4250 


XE(I,MCR3)=XE(I,NCR2) 

NLM4260 


YE(I.NCR3>=YE(I,NCP2) 

NLM4270 


ZE(I,NCP3>=7E(I,NCR2)*T0S<I) 

NLM4280 

420 

continue 

NLM4290 

430 

CONTINUE 

NLM4300 


IF (LL.E0.2) 60 TO 450 

NLM4310 

C 

linear interpolation 

NLM4320 


RXE=(XE(KS»4)-PXL(LL)1/(XE(KS*1,4)-PXL(LL) ) 

NLM4330 


RYE=(YF(KS»4)-PYL(LL) )/(YE(KS*l*4)-PYL(LLn 

NLM4340 


NXOR“NCOR(KS)-l 

NLM4350 


DO 440 L=6»NX0P 

NLM4360 


XE(KS,L)=(XE(KS*lfL)-PXL(LL) )*RXE*PXL (LL) 

NLM4370 


YE(KS*L)=(YE(KS*1»L>-PYL(LL) )»RYE+PYL (LL) 

NLM4380 


ZE(KS,L)=ZE(KS*1,L)»RYE 

NLM4390 

440 

continue 

NLM4400 

450 

CONTINUE 

NLN4410 


IF (iTRAKE.NE.l.AND.LL.EO.n GO TO 300 

NLM4420 


CALL NEWDA 

NLM4430 

C 

CALCULATION OF THE NEW LOCATIONS OF CONCENTRATED CORE BY 

NLM4440 

C 

SATISFING THE FORCE EPEE CONDITION 

NLM4450 


LL= 1 

NLM4460 


L 1 = 1 

NLM4470 


L3=L 1 ♦ 1 

NLM4480 


LMAX=M1 (1 )-l 

NLM4490 


KS=2 

NLM4500 


KE=LMAX 

NLM4510 


LO=L 1-1 

NLM4520 


GO TO 470 

NLM4530 

460 

LL = 2 

NLM4540 


L1=M1 (1) 

NLM4550 


L3=L 1+1 

NLM4560 


LMAX=MAXL 

NLM4570 


KS=Mid)*l 

NLM4580 


KE=LMAX 

NLM4590 


LO=L 1- 1 

NLM4600 



y 


470 


480 

490 


CONTINUE 

FSMIN=FHS (Ll*TTFR> 

NAERO=l 
NF INAL = 0 

CALL CFAEC (C,THFTP,XNtYN*XTE,XLE,YLE*YLM, CONS. CONI 

iy,si.nswi*ncw,nwng,ci,cj,ck,cpcwi,xcp,ycp,gama,area 

IF (ITER. EQ.KU5. OR. ITER. EO.KU6) 60 TO 480 
Al=TFORCE (LL) 

Bl=TFORCE (LL) 

CALL SEGMNT ( A 1 .R1 .MELM.NCOP.SFGMA.SFBDA) 

CONTINUE 
CONTINUE 
NCT = 0 

NFINAL=NFINAL*1 
F ACTOR = 1 , 0 

IF (ITER. GE.KU7. AND. PATIOC(LL.ITER) .LT. 0.05) FACTOR 
NAEPO=l 

NSW5=NELM (Ll ) -NCOR (LI ) 

DO 570 1=1 »NSW5 
IF (I.EO.l) GO TO 570 
I I=NCOR ( L 1 ) ♦ I 
NCON=LO+ I 

IF (NCON.GE.LMAX) NCON=LMAX 
NRT=1 

XXX=XF(Ll»Il> 

YYY=YE (LI » I I ) 

ZZ7=ZF (LI * 1 1 ) 

XEE=0.5*(XE(L1,II-1)*XE(L1.II) ) 
YEE=0.5*(Yt(Ll # IT-l)*YE(Ll,II) ) 
ZEE=0.5«(ZE{L1,II-1)*7E(L1,II) ) 

GMA=GT (NCON) 

A(1)=XE(L1*II)-XE(L1.II-1) 

A (2) =YE (Ll * 1 1 ) -YE (Ll.II-1) 

A ( 3) =7E < L 1 * I X ) -7E (Ll ♦ 1 1-1 ) 

CALL NEWVEL (C, THETP. XEE , YEE .ZEE, XN . YN, XTE.YLE, CONS 
lJ,CONK,SI»Nswi ,NCW,NWNG,CI,CJ,CK,XLE,UU.VV,WW,CPCW 1 
2LM) 

GA(1)=GMA*A(1)/AREA 
GA(2)=GMA*A(?)/ARFA 
GA(3)=GMA # A (3)/AREA 
B ( 1 ) =UU 


NLM4610 

NLM4620 

NLM4630 

NLM4640 

, CON J, CONK . DUMMNLM4650 

. ITER.GT ,2) NLM4660 

NLM4670 
NLM4680 
NLM4690 
NLM4700 
NLM4710 
NLM4720 
NLM4730 
NLM4740 
NLM4750 

=0.i NLM4760 

NLM4770 
NLM4780 
NLM4790 
NLM4800 
NLM4810 
NLM4820 
NLM4830 
NLM4840 
NLM4850 
NLM4860 
NLM4870 
NLM4880 
NLM4890 
NLM4900 
NLM4910 
NLM4920 
NLM4930 
NLM4940 

.DUMMY, CONI, CONNLM4950 

, XCP* YCP.GAMA » YNLM4960 
NLM4970 
NLM4980 
NLM4990 
NLM5000 

Kit Mem n 
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B(2)=VV 
B (3) =WW 

CALL CRSPRO (P . GA *F ) 

FYT ( I ) =F (2 ) 

EZ I ( I ) =F ( 3 ) 

IF (ITFR.EQ.KU5.0R.ITFP.FG.KU6) 00 TO 530 
IF (NFINAL.F0.1.0R.NFINAL.F0.3) SIGN=1.0 
IF (NFINAL.F0.P.0R.WFINAL.F0.4) SIGN=-1.0 
GO TO (510*510* 500, 500) , NFINAL 
500 CONTINUE 

FGMA1=$IGN*SFGMA (I.LL) 

FBDA=0 . 

C0NST=FGMA1 
GO TO 520 

510 FBDA=SIGN»SFBDA (I*LL) 

FGMA1=0. 

CONST=FROA 
5?0 CONTINUE 
530 CONTINUE 

TANTY=CTANTy(I*LL)-FROA»ARS(FZI ( I ) ) / (GA ( 1 ) *B ( 1 ) ) "FACTOR 
TANTZ=CTANT7(IfLL) *FGMA1"ARS(FYI (I) )/(GA (1 )«P(l ) )*EACTOR 
DLS=S0RT(A(1)**P*A(2)*«2+A (3)**2) 

DLX=OLS/SQRT.( 1 .♦TANTY**2*TANTZ*«2) 

0LY=0LX"TANty 
OLZ=OLX*TANTZ 
XE(L1»II) = XE(L1*II“1)*DLX 
YE (LI* II) *YE (LI *11-1) *OLY 
ZE(L1»II)=ZE(L1.II-1)+DL7 
IF (ZE(L1*II) .LT.O.) ZE(L1,II)=ZMIN 
C TO ADJUST THE ENTIRE COPE SIMULTANEOUSLY 

IE (I.EO.NSW5) Go TO 550 
DX=XE (L 1 * 1 1 ) -XXX 
0Y=YE(L1 *II)-YYY 
DZ=ZE(L1*I1)-Z7Z 
KN= 1 1 ♦ 1 
KK=NELM(L1) 

DO 540 IL=KN,KK 
XE(L1.IL)=XE(L1,IL)*DX 
YE(L1*IL)=YE(L1,IL)*DY 
ZE(L1»IL)=ZF (L1*TL)+0Z 
540 CONTINUE 


NLM5020 
NLM5030 
NLM5040 
NLM5050 
NLM5060 
NLM5070 
NLM5080 
NLM50R0 
NLM5100 
NLM5110 
NLM51P0 
NLM5130 
NLM5140 
NLM5150 
NLM5160 
NLM5170 
NLM5180 
NLM5190 
NLM5200 
NLM5210 
NLM5220 
NLM5230 
NLM5240 
NLM5250 
NLM5260 
NLM5270 
NLM5280 
NLM5290 
NLM5300 
NLM5310 
NLM5320 
NLM5330 
NLM5340 
NLM5350 
NLM5360 
NLM5370 
NLM5380 
NLM5390 
' NLM5400 
NLM5410 
NLM5420 




/ ** V 



550 

CONTINUE 


NLM5430 


DO 560 IK=L3»LMAX 


NLM5440 


NK=NELM(IK) 


NLM5450 


JK=NCOR (IK) 


NLM5460 


DO 560 L=JK,NK 


NLM5470 


XE(IK,L)=XE(IK-1,L*1) 


NLM5480 


YE(IK,L)=YE (IK-1, L*l) 


NLM5490 


ZE(IK,L)=ZE(IK-1,L*1) 


NLM5500 

560 

CONTINUE 


NLM5510 

570 

continue 


NLM5520 


IF (ITPAKE.NE.1) GO TO 580 


NLM5530 


IF (ITFR.GT.KU6) GO TO 580 


NLM5540 

C 

ADJUST THE 2ND FND POINT OF THE FIRST CORE SEGMENT BY 

NLM5550 

C 

LINEAR INTERPOLATION FROM THE THIRD POINT AND APEX. 

NLM5560 


NXORl=NCOR (LI) *1 


NLM5570 


NXOR?=NCOR(Ll) *?. 


NLM5580 


NXOR=NCOR ( L. 1 ) 


NLM5590 


RY=(YF(L1»NxOP 2)-PYL(LL) )/(XF(Ll»NXOR?)-PXL(LL) ) 

NLM5600 


RZ=(ZE(L1*NxOR?)-0.)/(XE(L1iNXOR2) 

-PXL (LL) ) 

NLM5610 


YE(L1,NX0R1)=PY*(XE(L1»NX0R1)-PXL(LL) )*PYL(LL) 

NLM5620 


ZE(L1,NX0R1)=R7*(XE(L1*NX0R1)-PXL (LL) ) 

NLM5630 


ZE(Ll,NXORl)=0.5<MZE(Ll,NxORl) *ZE (LI ,NX0P2) ) 

NLM5640 


YE(L1*1»NXOr)=yE(L1,NXOP1) 


NLM5650 


ZE(L1+1»NXOr)=zf(L1,NXOR1) 


NLM5660 

580 

continue 


NLM5670 

C 

CHECK FRFE SHEFT AND CORE LOCATION 

AFTER COPE ADJUSTMENTS 

NLM5680 

C 

NOTE that First CORE SEGMENT FROM 

APEX IS COVERED BY FREE 

SHEET NLM5690 


DO 600 II=Ks,KE 


NLM5700 


NXOR=NCOR ( I I ) 


NLM5710 


NCA=NCOR(II)-l 


NLM5720 


IF (YE(IItNxOR) .LT.YE (II»NCA) ) GO 

TO 590 

NLM5730 


GO TO 600 


NLM5740 

590 

NCB=NX0R-2 


NLM5750 


YE(II,NCA)=YF(II,NXOR) 


NLM5760 


YE(II,NCB)=YE(IT,NXOR) 


NLM5770 

600 

continue 


NLM5780 


CALL CFAEC ( C , THFTP , XN , YN , XTE , XLE , 

YLE,YLM, CONS, CONI, CON J, 

CONK,DUMMNLM5790 


1 Y * S I ,NSW1 »NCW,NWNG,CI»CJ,CK,CPCW1,XCP,YCP,GAMA»AREA,ITER»GT,2> NLM5800 
NCP2=NC0P ( L 1 ) -? NLM5810 
NAER0 = 0 NLM5820 
FTX 1 = 0 , NLM5B30 
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o n 


610 


620 


630 


FTY 1=0. 

FTZ 1=0 . 

FR 1 23=0 • 

DO 610 J=5 ♦ NCR? 

DO 610 I=KS,KF 
GMA=GAMA(NWNG*I) 

NRT = 0 
NCON=I 

XEE = 0.^*(XE(T,J) + XE(I.J«-1) ) 
YEE = 0.5<MYE(I,J)*YE(I,J + 1) ) 
ZFE=0.5 tt (Z£(I»J)-*ZE ( I * J+ 1 ) ) 


NLM5840 

NLM5850 

NLM5860 

NLM5870 

NLM5880 

NLM5890 

NLM5900 

NLM5910 

NLM5920 

NLM5930 

NLM5940 


TALL NEWVtL ( C . THETP » XEE , yEE , ZEE . XN ♦ YN , XTE , Yl.E ♦ CONS * DUMMY , CONI , C0NNLM5950 
1 J,C0NK,SI»NSW1 ,NCW,NWNG,CI,CJ,CK»XLE*UU*W»WW,CPCW1 »XCP*YCP,GAMA,YNLM5960 

PI US Kll MCOTA 


2LM) 

A(1)=XE(I*-J*1)-XE(I 


..IS 


NLM5970 


A(2)=YE(I*J*1)-YF(I.J) 

A(3)=7E(I»J+1)-7F(I.J) 

GA ( 1 ) =GMA*A { l ) /AREA 
GA (2) =GMA*A ip) /AREA 
GA (3) =GMA*A (3) /AREA 
B ( 1 ) =UU 
B (?) =VV 
B (3 ) =WW 

CALL CRSPRD (B • G A t E ) 

FTX1=FTX1+F (l) 

FTY1=FTY1+F (?) 

FTZ1=FTZ1+F (3) 

FR123=FR123 + sqrt (F (1 ) *»2*F ( 2 ) **2 + F ( 3 ) **2 ) 

CONTINUE 

FS IN (NFINAL)=SOPT(FTXl**2 + FTYl*#2*FT71 <M *2) 

IF (ITFP.GT.KU6) GO TO 620 
CALL NEWDA 
GO TO 730 
CONTINUE 

COMPARE THE FREE SHEET FORCE AFTER EACH INNER CYCLE (*Y. -Y, 

♦Z» -7) OF VOPTFX COPERS MOVEMENT 

IF (NFINAL.F0.1 .OP. NFINAL.EO. 3) GO TO 630 

IF (NFINAL.EO. 2. OR. NFINAL.EO. 4) GO TO 650 

CONTINUE 

DO 640 I=L1 »LMAX 
JK=NCOR(I) 


NLM5990 

NLM6000 

NLM6010 

NLM6020 

NLM6030 

NLM6040 

NLM6050 

NLM6060 

NLM6070 

NLM6080 

NLM6090 

NLM6100 

NLM6110 

NLM6120 

NLM6130 

NLM6140 

NLM6150 

NLM6160 

NLM6170 

NLM61R0 

NLM6190 

NLM6200 

NLM6210 

NLM6220 

NLM6230 

NLM6240 


-1 
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640 

6*50 

660 

C 


670 


6R0 

690 


NK = NFLM ( I ) 

DO 640 J=JK f NK 
XE1 (I * J) =XE (I » J) 

YE1 (I, J)=YE(I,J) 

ZE1 ( I » J) =ZE ( I * J) 

CONTINUE 

CALL NEWBC (MAXL) 

GO TO 490 

DO 660 I=L1,LMAX 

JK=NCOR(I) 

NK=NELM(I) 

DO 660 J=JK,nK 
XE2(I,J)=XE(i,j) 

YE2(I, J)=YE (i, j) 

ZE2 ( I * J) =ZE ( I ♦ J, 
continue 

CALL NFWBC (MAXL) 

COMPARE THt FREE SHEET FORCE IN THE INNER ITERATION 
X1=FSIN(NFINAL-1 ) 

X?=FSIN(NFINAL) 

CALL MINMAX (XI ,X2» XMN.X.Mx) 

IF (XMN.GT.FSMIN) GO TO 720 

IF (X2.LT.Xl) 10=2 

IF (Xl.LT.X?) TD=1 

IF (ID.EQ.2) GO TO 670 

GO TO 690 

DO 680 I=L1,LMAX 

JK=NCOR(I) 

NK=NELM(I) 

DO 680 J=JK,NK 
XE ( I t J) =XE2 ( I . J) 

YE(I*J)=YE2( I* J) 

ZE(I,J)=Zt2(l,j) 

CONTINUE 
GO TO 710 
DO 700 I=L1,LMAX 
JK=NCOR(I) 

NK=NELM(I) 

DO 700 J=JK,NK 
XE(I»J)=XE1 (I.J) 

YE(I,J)=YE1 (I,J) 


NLM6PB0 

NLM6260 

NLM6270 

NLM6280 

NLM6290 

NLM6300 

NLM6310 

NLM6320 

NLM6330 

NLM6340 

NLM6350 

NLM6360 

NLM6370 

NLM6380 

NLM6390 

NLM6400 

NLM6410 

NLM6420 

NLM6430 

NLM6440 

NLM6450 

NLM6460 

NLM6470 

NLM6480 

NLM6490 

NLM6500 

NLM6510 

NLM6520 

NLM6530 

NLM6540 

NLM6B50 

NLM6560 

NLM6570 

NLM6580 

NLM6590 

NLM6600 

NLM6610 

NLM6620 

NLM6630 

NLM6640 

NLM6650 
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ZE(I,J)=7fcl (I.J) 

700 continue 
710 CONTINUE 

IF (IO.EO.l) FSMIN=X1 
IF (I0.E0.2) FSMIN=X2 
CALL NFWDA 
720 CONTINUE 

IF (NFINAL.E0.4) GO TO 730 
GO TO 490 
730 CONTINUE 

IF (ITPAKE.NE.1 .AND.LL.EQ.l ) GO TO 
GO TO 130 
C 

740 FORMAT ( 1 HO , 5X . RF 1 0 .5 > 

750 FORMAT (8F10.4) 

760 FORMAT ( 1 0 1 2 j 
END 


NLM6660 

NLM6670 

MLM6680 

NLM6690 

NLM6700 

NLM6710 

NLM6720 

NLM6730 

NLM6740 

NLM6750 

460 NLM6760 

NLM6770 

NLM6780 

NLM6800 

NLM6810 

NLM68P0 

NLM6830- 


surpoutine corf 

(XB.YB.ZBfXEND.GAMA.NSWl « NEL M . NWNG . NXR ) 

CRE 

10 

FIND THE CtNTPOTD OF THE DIFFUSED LEADING-EDGE VORTEX 

CRE 

20 

element system 


CRE 

30 

DIMENSION XR (40 * 

?) »YP<40.2) .ZB (40 *2) .GAMA (1) .YSTN(40) ,7STN(40) * 

CRE 

40 

1NFLM(1) 


CRE 

50 

COMMON /ABC/ XE (1 0 . 40 ) » YE { 1 0 *40 ) « ZE (1 0 *40 ) 

CRE 

60 

COMMON /AERO/ N AERO , MAXL . MAXW . ISPAN ♦ I SF , I TRAKE , ISC 

CRE 

70 

COMMON /GENOF/ Ml (5) 

CRE 

80 

COMMON /LOC/ FU1 

.FU2.REND.PXL (5) .PXT (5) .PYL (5) 

CRE 

90 

SEGL=(PXT(1)-PXL(1 ) )/8. 

CRE 

100 

IF (ITRAKE.NE, 1 ) 

GO TO 10 

CRE 

110 

LL = 1 


CRE 

120 

L 1 = 1 


CRE 

130 

NSW2=NSW1-1 


CRE 

140 

L?=2 


CRE 

150 

ISECT=1 


CRE 

160 

L3=L2 


CRE 

170 

NSW1=MAXL 


CRE 

180 

GO TO 30 


CRE 

190 

LL = 1 


CRE 

200 

L 1 = 1 


CRE 

210 




10 
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NSW2=(M1 (1)-1)-1 
L ?=? 

ISECT=1 

L3=L? 

NSW1=M1 ( 1 ) -1 
GO TO 30 
20 LL=2 

L 1 =M1 Cl) 

NSW2= (Ml ( 1 ) — 1 ) ♦ { Ml (2) -1 ) -1 
L2=ll+1 
I SECT=2 
L3=L1+1 
NSW1=MAXL 
30 CONTINUF 

XB ( 1 *LL) = XE (LI ? 4) 

YB(1,LL)=YE(L1*4) 

ZB(l,LL)=ZE(tl,4) 

11 = 1 

DO 40 I=L2*NSW2 
11 = 11+1 

XB(II*LL) s 0.5*(XECI+1 *4)+XE(I»4) ) 

40 CONTINUE 

K = I I 

BO K=K ♦ 1 

XB(K,LL)=XB (K-l «1_L) +SEGL 

IF (XB (K,LL) .LT.XEND) GO TO 50 

NXB=K 

J=2 

60 XBAR=XB ( J*LL) 

CALL CFNTHO (XRAR,YSTN»7STN*NMAX*NSW1 » NFLM* I SECT ) 
SUMY=0. 

SUMZ=0. 

GMSUM=0. 

DO 70 T=L3*NMAX 
II=NWMG+I 

GMSUM=OMSUM*GAMA(II) 

SUMY=SUMy*YSTN ( I ) *GAMA (II) 

70 SUMZ=SUM7+ZSTM(I)*GAMA(II) 

YBAR=SUMY/GMSUN 

ZBAR=SUMZ/GMSUM 

YB(J,LL)=YBar 


CRE 220 
CRE 230 
CRE 240 
CRE 250 
CRE 260 
CRE 270 
CRE 2B0 
CRE 290 
CRE 300 
CRE 310 
CRE 320 
CRE 330 
CRE 340 
CRE 350 
CRE 360 
CRE 370 
CRE 380 
CRE 390 
CRE 400 
CRE 410 
CRE 420 
CRE 430 
CRE 440 
CRE 450 
CRE 460 
CRE 470 
CRE 480 
CRE 490 
CRE 500 
CRE 510 
CRE 520 
CRE 530 
CRE 540 
CRE 550 
CRE 560 
CRE 570 
CRE 580 
CRE 590 
CRE 600 
CRE 610 
CRE 620 


215 



CRE 630 
CRE 640 
CRE 650 
CRE 660 
CRE 670 
CRE 680- 


SUBROUTINE CFAEC (C,THETP,XN,YN,XTE,XLE,YLF,YLM, CONS, CONI, CONJ,CONCFC 10 
1K,0UMMY»SI» NSW 1 * NCW , NWNG , C I » C J *CK , CPCW1 » XCP * YCP * GAMA « AREA * ITER * GT , CFC 20 


2N ) 


CFC 

30 

DIMENSION DUMMY ( 1 ) * CONS ( 1 ) , CONI (1) * CON J ( 1 ) .CONK(l) , Cl ( 1 ) *CJ ( 1 > , 

CFC 

40 

1CK(1) ,C(1> * THETP { 1 ) « XLE ( 1 ) , XTE ( 1 ) , YLE ( 1 ) ,Yl.M(l) ,SI ( 1 ) ,GAMA ( 1 ) * 

CFC 

50 

2XCP ( 1 ) , YCP ( 1 ) , 

CPCW1 (1) ,XN(NWNG»2) f YN (NWNG, 2) » A (3) ,8 (3) *F (3) ,GA (3) 

,CFC 

60 

3GT (3) ,FXP(40,2 

.2) 

CFC 

70 

COMMON /NCTT/ 

NCT,NCON,NBT»NCOR (15) 

CFC 

80 

COMMON /ABC/ XE ( 1 0 * 40 ) , YF ( 1 0 , 40 ) , ZE ( 1 0 » 40 ) 

CFC 

90 

COMMON /AERO/ 

NAFPO,MAXLtMAXW,ISPAN, ISF,ITPAKE. ISC 

CFC 

100 

COMMON /ALLRB/ 

AX (210) ♦ZMINfNEUM(ll) 

CFC 

110 

COMMON /GENCF/ 

Ml (5) 

CFC 

120 

COMMON /MUFAV/ 

FYP ( 4 0 * 2 » 2 ) *FZP (40,2,2) 

CFC 

130 

COMMON /INFAV/ 

FYT(20) , FZT (20) , FYI (40 ) ,FZI (40 ) , VXI ( 40 ) , VYI (40 ) , 

CFC 

140 

1VZI (40) .FXT (20) ,TFORCE (20) 

CFC 

150 

NCT = 0 


CFC 

160 

LL-1 


CFC 

170 

L 1 = 1 


CFC 

180 

L0=L1-1 


CFC 

190 

L2=M1 ( 1 ) -1 


CFC 

200 

GO TO 20 


CFC 

210 

LL = 2 


CFC 

220 

L1=M1 (1) 


CFC 

230 

LO=L 1 - 1 


CFC 

240 

L2=MAXL 


CFC 

250 

CONTINUF 


CFC 

260 

FXT(LL)=0. 


CFC 

270 

FYT(LL)=0. 


CFC 

280 

FZT ( LL ) =0 - 


CFC 

290 

NSW5=NFLM(Ll)- 

NCOR(Ll) 

CFC 

300 

DO 30 I=1»NSW5 


CFC 

310 

II=NCOP(Ll)+I 


CFC 

320 


ZB(J,LL)=ZHAR 

J=J*1 

IF (J.LE.NXP) GO TO 60 

IF (ITPAKE.NE.1.ANO.LL.EQ.1) GO TO 20 

RETURN 

END 
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NC0N=10*I 

CFC 

330 

IF (NC0N.GE.L2) NC0N=L2 

CFC 

340 

NPT=1 

CFC 

350 

XEE=0.5*(XE(L1,II-1)*XE(L1.II) ) 

CFC 

360 

YEE=0.5*(YE(L1,II-1)*YE(L1,II>) 

CFC 

370 

ZEE = 0.5<MZE(L1,II-1)*7E(L1,II)> 

CFC 

3B0 

GMA=GT (NCON) 

CFC 

390 

A(l)=XF(Ll»II)-xF(Ll ,11-1) 

CFC 

400 

A ( 2 ) =YF ( L 1 » 1 1 ) -YF (L 1,11-1) 

CFC 

410 

A(3)=7E(Ll»II)-7E(Ll,II-l) 

CFC 

420 

CALL NFWVtL (C,THETP,XEF,yEE, ZEE, XN,YN,XTE,YLE, CONS. DUMMY, CONI 

»CONCFC 

430 

1J, CONK, 5 1 *Nswi ,NCW,NWNG,CI,CJ,CK,XLE,UU,VV»WW,CPCV.'l . XCP * YCP , GAMA , YCFC 

440 

2LM) 

CFC 

450 

GA ( 1 ) =GMA*A ( l ) / ARF A 

CFC 

460 

GA (2) =OMA*A (?) /AREA 

CFC 

470 

GA(3)=GMA*A(3)/AREA 

CFC 

480 

B(1)=UU 

CFC 

490 

B (2) =VV 

CFC 

500 

B ( 3 ) =WW 

CFC 

510 

CALL CPSPRD ( R , GA, F ) 

CFC 

520 

FXP(I,N,LL)=F(1) 

CFC 

530 

FYP(I,N,LL)=F (2) 

CFX 

540 

FZP ( I ,N, LL ) =F ( 3 ) 

CFC 

550 

FXT(LL)=FXT(LL)+F(1) 

CFC 

560 

FYT(LL)=FYT(LL)+F(2) 

CFC 

570 

F7T (LL) =EZT (LL) «-F (3) 

CFC 

580 

continue 

CFC 

590 

TFORCF (LL)=SOPT (FXT (LL) **2*FYT (LL) **2+FZT <LL)**2) 

CFC 

600 

IF (ITRAKE.NE.I.AND.LL.EO.I) GO TO 10 

CFC 

610 

RETURN 

CFC 

620 

END 

CFC 

630 

SUBROUTINE SEGMNT ( ASTAR , BSTAR ,NELM ,NCOP , SFGMA , SFBOA ) 

SEG 

10 

COMPUTE THE SEGMENT FORCE OF THE CORF 

SEG 

20 

DIMENSION NELM(l) ,NCOR(l) ,SFBDA(40,2) , SFGMA (40,2) 

SEG 

30 

COMMON /MUFAV/ FYP < ^0 , 2 , 2 ) , FZP ( 40 , 2 , 2 ) 

SEG 

40 

COMMON /GtNCF/ Ml (5) 

SEG 

50 

COMMON /AERO/ NAERO , MAXL , MAXW , I SPAN , I SF , ITRAKF , ISC 

SEG 

60 

LL = 1 

SEG 

70 



10 


20 


30 


L 1=1 SE6 

GO TO ?0 SEG 

t~L = 2 SEG 

L1=M1(1) SEG 

CONTINUE SEG 

NSW5=NFLM(Ll)-NCOR(Ll ) SEG 

DO 30 1=1 ♦ NswS SEG 

IF <F7P(I*2,LL) .GT.O. .AND. FZP(I.ltLL) .GT.O.) FZ=0.1 SEG 

IF (F7P(I*2»LL) . LT » 0 # • AND.FZP < I ♦ 1 ♦LL) .LT.O.) FZ=-0.1 SEG 

IF (F7P(I»2,LL) .GT.O. .AND. F7P(I»1*LL> .LT.O.) F7=0.1 SEG 

IF (FZP(If2,LL> .LT.O. .AND. FZP(Itl.LL) .GT.O.) F7=-0.1 SEG 

SFGMA(I,LL)=FZ*(FZP(I»2,LL)-FZP(I*1.LL) )/(APS(FZP(I*l*LL) ) ) *BSTAR SEG 

SFGMA ( I ,LL) =lo.»SFGMfl ( I , LL) SEG 

IF (F7P(I*2,LL)*FZP(Itl*LL) .LT.O.) SFGMA ( I *LL ) =0 . SEG 

IF (FYP(I*2,LL) .GT.O.. AND. FYP(I,1,LL) .GT.O.) FY=0.5 SEG 

IF (FYP(I*2,LL) .LT.O. .AND. FYP(I.l.LL) .LT.O.) FY=-0.5 SEG 

IF (FYP(I*2,LL) .GT.O. .AND. FYP(I,1,LL> .LT.O.) FY=0.5 SEG 

IF (FYP(I»2,LL) .LT.O. .AND. FYP(I,1.LL) .GT.O.) FY=-0.5 SEG 

SFBDA(I.LL)=FY*(FYP(I,2*LL)-FYP(Itl *LL) > / ( ABS (FYP ( I * 1 «LL) ) )*ASTAP SEG 

IF (FYP(I*2,LL)*FYP(I f 1,LL) .LT.O.) SFBDA ( I , LL ) =-0 ,?5*ARS { (FYP ( I , 2 ,SEG 
lLL)-FYP(I*l*LL))/FYP(I*lfLL)) SEG 

IF (ARS(SFGmA(I,LL) ) .GT.1.0) SFGMA < I , LL ) =0 . SEG 

IF (ARS (SF8nA (I.LL) ) .GT.1.0) SFBDA ( I ♦ LL ) =0 . SEG 

CONTINUE SEG 

IF { ITRAKE.NF. 1 . AND .LL .EO , 1 ) GO TO 10 SEG 

RETURN SEG 

END SEG 


80 

90 

100 

110 

120 

130 

140 

150 

160 

170 

180 

190 

200 

210 

220 

230 

240 

250 

260 

270 

280 

290 

300 

310 

320 

330 

340- 


SUBROUTINE NFWPC (NSWl) 

NBC 

10 

COMMON /ABC/ XF { 1 0 . 40 ) # YE ( 1 0 . 40 ) * 7E ( 1 0 * 40 ) 

NBC 

20 

COMMON /ALLRR/ AX (210) , 7MIM.NELM(11) 

NBC 

30 

COMMON /OABc/ DxE ( 1 0 . 40 ) . DYE ( 1 0 * 40 ) * D7E ( 1 0 . 40 > 

NBC 

40 

DO 20 1=1 »NSW1 

NBC 

50 

K=NELM(I) 

NBC 

60 

DO 10 J=1*K 

NBC 

70 

XE ( I * J ) = DXE ( I . J ) 

NBC 

80 

YE(I*J)=PYE(I,J) 

NBC 

90 

ZE { I ♦ J ) =DZE ( I * J) 

NBC 

100 

continue 

NBC 

110 
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continue 

NBC 

120 

RETURN 

NBC 

130 

END 

NBC 

140- 


SUBROUTINE NEWDA 
DIMENSION A ( 3 ) 

COMMON /ABC/ XF ( 1 0 , 40 ) ♦ YF ( 1 0 , 40 ) , 7F ( 1 0 , 40 ) 

COMMON /ALLRB/ A X ( 2 1 0 ) ,7MIN,NHLM (11) 

COMMON /OABc/ DXE ( 1 0 , 40 ) , DYF ( 1 0 , 40 } , DZE ( 1 0 , 4 0 ) 
COMMON /GENCF/ Ml (5) 

COMMON /aero/ nafro,maxl,maxw,ispan,isf,itrake,isc 

COMMON /LOCSP/ PX (300) ,CTANTY (40,2) ,CTANT7 (40,2) 
COMMON /NCT t / NCT,NCON,NBT,NCOR (15) 

COMMON /MDFAV/ FYP ( 40 , 2 , ? ) , F7P ( 40 , 2 ♦ 2 ) 

DO 20 I=1,MAXL 
K=NELM(I) 

DO 10 J=1*K 
DXE(I,J)=XE ( i,J5 
DYE (I* J)sYE(J,J) 

DZE(IfJ)=ZE(i,j) 

10 CONTINUE 

20 CONTINUE 

LL = 1 
L 1 = 1 

GO TO 40 
30 LL=2 

L 1 =M 1 ( 1 ) 

40 CONTINUE 

NSW5=NELM ( L 1 ) -NCOP (LI ) 

DO 50 I=1»Nsw 5 
II=NCOR (Ll) + 1 

A (l)=XF(Ll*II)-XF(Ll ,11-1) 

A (2)=YF (Ll»II)-YE (Ll • II— 1 ) 

A (3)=7F (Ll * 1 1 ) - 7 E (Ll,TI — 1) 

CTANTY (I,LL)sA (?) /A ( 1 ) 

CTANT7(I,LL)=A(3)/A(1) 

50 CONTINUE 

IF (ITPAKE.NE.1 .AND.LL.FO.l) GO TO 30 
RETUPN 


NDA 

10 

NDA 

20 

NDA 

30 

NDA 

40 

NDA 

50 

NDA 

60 

NDA 

70 

NDA 

80 

NDA 

90 

NDA 

100 

NDA 

110 

NDA 

120 

NDA 

130 

NDA 

140 

NDA 

150 

NDA 

160 

NDA 

170 

NDA 

180 

NDA 

190 

NDA 

200 

NDA 

210 

NDA 

220 

NDA 

230 

NDA 

240 

NDA 

250 

NDA 

260 

NDA 

270 

NDA 

280 

NDA 

290 

NDA 

300 

NDA 

310 

NDA 

320 

NDA 

330 

NDA 

340 

NDA 

350 
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END 


NDA 360- 


SUBROUTINE MOOFL ( XP ♦ YB ♦ 7B ♦ NELM * NXP » M 1 , LASTF ) 

MOD 

10 

DIMENSION Mi ( i) 

MOD 

20 

DIMENSION XP(40»?).YR(40,2),7B(40»2)* 

MOD 

30 

1FXE(10) *FYE(10) * FZE ( 1 0 ) ♦RXE(IO) *BYE(10) »B?E(10) ♦ NELM ( 1 ) 

MOD 

40 

COMMON /NCTt/ NCT,NC0N,NRt,NC0R(15) ,KU1,NFSH(1S) 

MOD 

50 

COMMON /AERO/ N AFRO .MAXL ♦ MAXW , I SPAN ♦ ISF , ITRAKE , ISC 

MOD 

60 

COMMON /ABC/ XE ( 1 0 ♦ 40 ) ♦ YF ( 1 0 , 40 ) * ZE < 1 0 , 40 ) 

MOD 

70 

nswi=maxl 

MOD 

80 

IF (ISPAN.Eq.O) T X = 1 

MOD 

90 

IF (ISPAN.Eo.l) IX=P 

MOD 

100 

DO 110 I=2»NSW1 

MOD 

110 

IF {ITRAKE.FO.I ) GO TO 10 

MOD 

120 

NN2=Ml(l)+2 

MOD 

130 

LL = 0 

MOD 

140 

IF (I.FQ.M1 (1 )-?) LL= 1 

MOD 

150 

IF (I.EO.NN?) LL=? 

MOD 

160 

IF (LL.FO.O) GO TO 110 

MOD 

170 

GO TO 20 

MOD 

180 

LL = 1 

MOD 

190 

CONTINUE 

MOD 

200 

NITsNFSH(I) 

MOD 

210 

NN=NELM(I) 

MOD 

220 

J-5 

MOD 

230 

IC=1 

MOD 

240 

CALL CHOPS (LL*lC.r,J*XR,YR*7B.NXB f NGB,FXE*FYE.FZE#XCA # XCB 

*zca*zcbmod 

250 

1) 

MOD 

260 

IF (NGP.EQ.l) GO TO SO 

MOD 

270 

IF { (J+l ) .Eo.NEL^(I) ) GO TO 40 

MOD 

280 

J=J* 1 

MOD 

290 

IF (J.LT.NN) go TO 30 

MOD 

300 

CONTINUE 

MOD 

310 

I SF = 0 

MOD 

320 

WPITF (6,120) 

MOD 

330 

LASTE = I 

MOD 

340 

RETURN 

MOD 

350 

CONTINUE 

MOD 

360 

XE(I*J*1)=FXF(I) 

MOD 

370 
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60 

70 

80 

90 

100 

110 



■r-* 


YF(I,j4l)=FYF(I) 

MOD 

380 

7F(I,J+l)=FzE(I) 

MOD 

390 

NOC= ( J-4 ) *1 

MOD 

400 

IF (N0C.GE.4) GO TO 90 

MOD 

410 

IF (NOC.EQ.2) GO TO 60 

MOD 

420 

IF (NOC.FQ.3) GO TO R0 

MOD 

430 

DO 70 MK=1»3 

MOD 

440 

FMrMK 

MOD 

450 

XE<I*MK + 5)=FM/3,«UFXE(I)-XE<I.5) )+XE(I«5) 

MOD 

460 

YE(I.MK + 5)=FM/3.<MFYE(I)-YE(I.5) >*YE(I,5) 

MOD 

470 

ZE(I»MK + 5) = FM/3 . *(FZF(I) -7E ( I » 5 ) ) +ZE (1,5) 

MOD 

480 

continue 

MOD 

490 

N0C=4 

MOD 

500 

GO TO 90 

MOD 

510 

XE ( I ♦ 8 ) =FXE < I ) 

MOD 

520 

YE (1*8) =FYE ( I ) 

MOD 

530 

ZE ( I * 8 ) =FZE ( I ) 

MOD 

540 

XF (I,7)=Xt (1,6) 

MOD 

550 

YE ( 1*7) “YE ( I *6) 

MOD 

560 

ZE(I,7)=7E(I,6) 

MOD 

570 

XE(T*6)=0*5«’(XF (1*5) •fXE(I*6) ) 

MOD 

580 

YE(I»6)=0.5*(YF(I,5) +YF (1*6) ) 

MOD 

590 

7F(I*6)*0.5*(ZF(T«5)+7E(I,6) ) 

MOD 

600 

N0C = 4 

MOD 

610 

CALL LEADLM (NOC ,BxF , BYE , BZE »NI T , I ) 

MOD 

620 

DO 100 MJ=1,NTT 

MOD 

630 

JJ=MJ + 5 

MOD 

640 

XE(ItJJ)sBXE(MJ) 

MOD 

650 

YE(I*JJ)=BYE(MJ) 

MOD 

660 

ZE(I,JJ)=BZF(MJ) 

MOD 

670 

CONTINUE 

MOD 

680 

ZB7=ZGA+ (FXE (’I ) - XCA ) * ( ZCB-ZCA) / ( XCR-XCA) 

MOD 

690 

NCpsNCOP(I) 

MOD 

700 

NCR 1 =NCP- 1 

MOD 

710 

XE(I,NCP)=FxE(I) 

MOD 

720 

YE(I.NCR)=FyE(I) 

MOD 

730 

ZE ( I * NCR ) = ZR7 

MOD 

740 

continue 

MOD 

750 

ISF = 1 

MOD 

760 

RETURN 

MOD 

770 


MOD 

780 


C 
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o n 


C MOD 790 

120 FORMAT (lHl, t 68H FAIL TO OFT INTERSECTION RY THE WELL DEFINED FREEMOD 800 


1 VORTEX ELEMENTS ) 



MOD 

810 

END 



MOD 

820 

SUBROUTINE CHOPS <LL ♦ IC , I , J * XB , YB *7B ♦ NXB , MGR » FXE . FYE * 

fze,xca»xcb 

*ZCPS 

10 

1CA ♦ ZCP ) 



CPS 

20 

FIND THE INTERSECTION BETWEEN THE LEADING EDGE 

vortex 

FILAMENT 

CPS 

30 

AND THE CENTROID OF THE LEADING EDGE VORTEX SYSTEM 


CPS 

40 

DIMENSION FXE(IO) *FYF (10) »FZE (10) 



CPS 

50 

DIMENSION XR(40,?)*YB<40,2),ZB(40.?)»A(3),B(3) 

tC(3) 


CPS 

60 

COMMON /ABC/ XE (10*40) * YE (10*40) ♦ ZE ( 1 0 »40 ) 



CPS 

70 

NGB = 0 



CPS 

80 

CHECK POINT 1 AND 2 ON VORTEX FILAMENT 



CPS 

90 

CONTINUE 



CPS 

100 

A < 1 ) = XF (I**J+1)-XR(IC*LL) 



CPS 

110 

A(2)=YF(I*vJ+1)-YR(IC,LL) 



CPS 

120 

A ( 3 ) =0 . 



CPS 

130 

B ( 1 ) =XR ( IC+ 1 f LL) -XB ( IC*LL) 



CPS 

140 

B(2)=YB(lC+l f LL)-YB(TC,LL) 



CPS 

150 

B ( 3 ) =0 . 



CPS 

160 

CALL CPSPRD ( A * R « C ) 



CPS 

170 

C1=C (3) 



CPS 

180 

A(1)=XE(I*J)-XR(IC,LL) 



CPS 

190 

A(2)=YE{I*U)-YB(IC,LI ) 



CPS 

200 

A ( 3 ) =0 . 



CPS 

210 

CALL CRSPRU (A,R,C) 



CPS 

220 

C2=C (3) 



CPS 

230 

IF (C1»C2.Gt.O.) GO TO 20 



CPS 

240 

CHECK POINT 3 AND 4 ON CENTROID 



CPS 

250 

A(l)=XB(lC+l # LL)-XE { I * J) 



CPS 

260 

A(2)=YR(IC+I # LL)-YE(I,J) 



CPS 

270 

A ( 3 ) =0 . 



CPS 

280 

B(1)=XF(I»J*1)-XE(I*J) 



CPS 

290 

B(2)=YF(I*J+l)-YF(ItJ) 



CPS 

300 

B ( 3 ) =0 , 



CPS 

310 

CALL CRSPHD (A,R.C) 



CPS 

320 

C 1 =C ( 3 ) 



CPS 

330 

A(1)SXP(IC,LL)-XE(I,J) 



CPS 

340 
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non 


n •> 


20 


A (?) =YR ( IC,LL) -YF (I , J) CPS 350 
A ( 3 ) =0 . CPS 360 
CALL CPSPRU ( A « B « C) CPS 370 
C2=C<3) CPS 380 
IF (C]»C2.Gi.n.) GO TO 20 CPS 390 
NGP=1 CPS 400 
XCA-XE ( I ? CPS 410 
CALL CFSET ( XCA , YCA * 7CA ♦ IC, XB , YB ,ZB ♦ LL ) CPS 420 
XCB=XF<I,vJ*l) CPS 430 
CALL CFSET ( XCB ♦ YCB , 7CB * IC,XB*YB*ZR,LL) CPS 440 
XYAB= (XCB-XCA) / (YCB-YCA) CPS 450 
XYE=(XE(I»'J+1)-XE(I»J) )/(YE(I*J+l)-YE(I»J) ) CPS 460 
BR1=XCA-(XYAB*YCA) CPS 470 
BB2=XE(I*J)-(XYE*YE(I,J)) CPS 480 
OENOM=XYAB-XYE CPS 490 
FXE(I)=(XYAr»pb?-xYF»BB1)/DFNOM CPS 500 
FYE(I)=(BB2-BB1)/DEN0M CPS 510 


FZE ( I ) =ZE ( I * J) ♦ (FXE ( I ) -XE { T * J) ) * ( 7E ( I * J + l } -7F ( I f J) ) / { xE < I * J+l ) -XE (CPS 520 


CPS 530 

RETURN CPS 540 

ICsIC+1 CPS 550 

IF (IC.GE.NXB) PFTURN CPS 560 

GO TO 10 CPS 570 

END CPS 580- 


SUBROUTINE LIPITN (NCOR,NELP »M1 tLASTE) 

LRN 

10 

COMMON /LOC/ FU] ,FU?,XEND,PXL{5) *PXT(5) tPYL(5) 

LRN 

20 

COMMON /AERO/ NAFRO , M AXL *M AXW , ISPAN , ISF ♦ I TRAKE » ISC 

LRN 

30 

COMMON /ALLRA/ TTL (16) , alpha 

LRN 

40 

COMMON /ABC/ PXE { 1 0 , 40 ) , PyE ( 1 0 , 40 ) , PZE < 1 0 # 40 ) 

LRN 

50 

DIMENSION Mi( 1)f NCOR(l) ,NFLM(1) 

LRN 

60 

LINEAR INTERPOLATION OF LAST TWO VORTEX STRIPS 

LRN 

70 

LPN 

80 


LRN 

90 

IF (iSPAN.Ep.O) IX=1 

LRN 

100 

IF (iSPAN.tQ.l ) I X=2 

LRN 

110 

nswi=maxl 

LRN 

120 

IF (ITRAKE.FO.I ) GO TO 50 

LRN 

130 

NN2=M1 (1) *2 

LRN 

140 
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DO 40 I = 2»MAXL. 

IF (I.FO.M1 (1 ) ) GO TO 40 
IF (I. EG. Ml (1)-?.0R.I.EQ.NN2) GO TO 4,0 
IF (I.LE.M1 (l)-i ) GO TO 20 
L A XN=NN2 

RXE=(PXE(I*5)-PXL(IX*1) )/(PXE(LAXN»5)-PXL(IXM)) 
RYE=PYF (I *5) /PYF (LAXN,5) 

NXOP=NOOR ( I ) 

DO 10 L=6»NxOR 

PXE(I*L)= px L(IX+1)+ (PXE(LAXN»L)-PXL(IX+1) )*RXE 
PYE(I,L)=PYE(LAXN,L)»RYE 
PZE(I,L)=PZE(LAXN*L)»RYE 
10 CONTINUE 

GO TO 40 
20 CONTINUE 

N=Ml(l)-2 

RXE=(PXE(I»5)-PXL(IX) ) / ( PXE (N * 5 ) -PXL ( I X ) ) 
RYE=PYF(I»5) /PYE(N,S) 

NXOP=NCOR(I) 

DO 30 M-6 » NxOP 

PXE(I,M)=PXL(IX) ♦<PXE(N,M)-PXL(IX) )*RXE 
PYE(I,M)=PYE(N,M)*RYE 
PZE (I ,M)=PZF (N,M) *RYF 
30 CONTINUE 

40 CONTINUE 

GO TO 1 GO 
GO CONTINUE 

IF (ISF.EQ.O) GO TO 60 
GO TO 80 

60 NST=NSWl/2 

DO 70 I=I_ASTE,NSW1 
NXOR=NCOR ( I ) 

DO 70 L=6*NX0P 
X1=(PXE(NST,L-1)-PXL(1) )*«2 
Y1=(PYE(NST,L-1)-PYL(1) )**2 
Z1=(P7E(NST,L-1) } **2 
FL1=S0RT (Xl+Yl+71) 

XP=(PXF(I*L-1)-PXL(1) )**2 
Y2=(PYE(I*L-1)-PYL (1) ) **2 
Z2= (P7E ( I *L-1 ) )#«2 
FL2=GOPT (X2+VP+7?) 


LRN 150 
LRN 160 
LRN 170 
LRN 180 
LRN 190 
LRN 200 
LRN 210 
LRN 220 
LRN 230 
LRN 240 
LRN 250 
LRN 260 
LRN 270 
LRN 280 
LRN 290 
LRN 300 
LRN 310 
LRN 320 
LRN 330 
LRN 340 
LRN 350 
LRN 360 
LRN 370 
LRN 380 
LRN 390 
LRN 400 
LRN 410 
LRN 420 
LRN 430 
LRN 440 
LRN 450 
LRN 460 
LRN 470 
LRN 480 
LRN 490 
LRN 500 
LRN 510 
LRN 520 
LRN 530 
LRN 540 
LRN 550 
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70 

80 


90 


100 


no 


120 




Nr* 

FK=FL1/FL2 

LRN 

560 

PXE (I f L)=PXF(I,L-l) ♦ (PXE(NST,L)-PXE(NST,L-1) )/FK 

LRN 

570 

PYF (I,L)=PYF ( T * L— 1 ) + (PYE (NST »L) -PYF (NST »L-1 ) ) /FK 

LRN 

580 

PZE ( I»L) =PZE ( I,L-1> 4 (P7F (NST,L)-P7E <NST,L-1 > ) /FK 

LRN 

590 

CONTINUE 

LRN 

600 

continue 

LRN 

610 

RXE=(PXE(2,5)-PxL( 1) )/(PXF(3,5)-PXL(l) ) 

LRN 

620 

RYE=(PYF(2,5)-PYL(1) )/(PYF(3,5)-PYL<l) > 

LRN 

630 

NX0B=NC0P(2)_l 

LRN 

640 

DO 90 L=6»NxOB 

LRN 

650 

PXE(2,L)=(PXE(3,L)-PXL(1 ) )*RXE4PXL(1) 

LRN 

660 

PYE(?,L)=(PYE(3,L)*RYE)+PyL(1) 

LRN 

670 

P7E(2,L)=PZF(3,L)«RYF 

LRN 

680 

CONTINUF 

LRN 

690 

NELM(NSW1)=1? 

LRN 

700 

NSW5=NSWl+NFt_M (NSWI ) -NCOP (NSWI ) -1 

LRN 

710 

NCP=NCOP (NSwi ) 

LRN 

720 

NCA=NC0P(NSW1-1) 

LRN 

730 

DY= (PYF (NSWI ♦ NCR) -PYF (NSW 1-1, NCA) ) 

LRN 

740 

DX=(PXF(NSW1,NCR)-PXE(NSW1-1,NCA) ) 

LRN 

750 

dydx=dy/dx 

LRN 

760 

DO 100 I=NSwi.NSW5 

LRN 

770 

J = I-NSW1«-1 

LRN 

780 

JJ = J _ 1 

LRN 

790 

DXX=PXF (NSWI ,NCR+J) -PXE (NSW 1 ,NCR4JJ) 

LRN 

800 

PYE (NSWI ,NCp*J) =PYE (NSWI ,NCP4JJ) + (DYDX*DXX) 

LRN 

810 

PXE (NSWI ,NCp*j)=pxF (NSWI ,NCR+JJ) + DX 

LRN 

8?0 

CONTINUE 

LRN 

830 

DO 130 1=2, NSW? 

LRN 

840 

IF (I.OE.NSwi) GO TO 110 

LRN 

850 

JK=NCOP(I) +1 

LRN 

860 

NK = NCOR ( 1*1) 

LRN 

870 

1 1 = I 

LRN 

880 

GO TO 1?0 

LRN 

890 

continue 

LRN 

900 

I I =NSW 1 - 1 

LRN 

910 

JK=NCOP ( I I ) + ( I— I I ) 4l 

LRN 

920 

NK=NCOR (NSWI ) 4I-NSW141 

LRN 

930 

IF (IT.LT.2) GO TO 130 

*LRN 

940 

PXE(II,JK)=PXE(Tl4l,NK) 

LRN 

950 

PYE(II,JK)=PYE(TT4l,NK) 

LRN 

960 


225 




PZF ( 1 1 * JK) =P7F ( T I ♦ 1 , NK ) 

l_RN 970 


11=11-1 

LRN 980 


NK=JK 

. LRN 990 


JK=NCOB(H> + (I-II>M 

LRN1000 


GO TO 120 

LRN1010 

130 

CONTINUE 

LRN1020 


LL= 1 

LRN1030 


L1=NSW1 

LPN1040 


L3=? 

LRN1050 


DO 140 I =2 » NSW 1 

LRN1060 


NELM ( I ) =NELM (NSW1 ) ♦ (NSW1-I ) 

LRN1070 

140 

CONTINUE 

LRN1080 


GO TO 250 

LRN1090 

150 

continue 

LRN1100 


IL=1 

LRN1110 


L1=M1 ( 1 ) -1 

LRN1120 


L2=ll-1 

LPN1130 


NSW6=L? 

LRN1140 


L3 = 2 

LRN1150 


GO TO 170 

LRN1160 

160 

LL = 2 

LRN1170 


L1=MAXL 

LRN110O 


L?=L1-1 

LRN1190 


NSW6=L? 

LRN1200 


L3=M1 (D+-1 ' 

LRN1210 

170 

continue 

LRN1220 


NCA=NCOP (L2) 

LRN1230 


NCR=NC0R(L1) 

LRN1240 


DXX=PXE (l_l*NCP)-PXE (L2*NCA) 

LRN1250 


DYY=PYE (H»NCP)-PYE (L2,NCA) 

LRN1P60 


DZ7=P7E (Ll *NCP) -P7E (L2*NCA) 

LRN1270 


OYDX=DYY/UXx 

LRN12R0 


PZDX=0ZZ/DXx 

LRN1290 


DX=(PXT(LL)-PXL(LL) }/4. 

LRN1300 


IC=1 

LRN1310 


PAV = 0.5*(PXT(LL) *PXT(LL*1 ) ) ♦0,5*(PXT (LL)-PXL. (LL) ) 

LRN1320 


PAX=PXE (Ll *NCP) +DX 

LRN1330 

1R0 

IE (PAX.GT.PAV) GO TO 190 

LRN1340 


IC=IC+1 

LRN1350 


PAX=PAX ♦ D X 

LRN1360 


GO TO 180 

LRN1370 
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IPO 

JJ=NCP+ I C 


LRN13R0 


I=L 1 


LPN1390 


J=NCR*1 


LRN1400 


DO 200 K=0»JJ 


LRN1410 


PXE(I,K)=PXF(I,K-1)+DX 


LRN1420 


PYE (I,K)=PYE (I,K-1) +nx*nYDX 


LRN1430 


P7E ( I ,K) =PZF ( I ,K-1 ) ♦DX*DZOX 


LRN1440 

POO 

CONTINUE 


LRN1450 


NFLM(L1)=^vJ 


LRN1460 


DO 210 I=L3,NSW6 


LRN1470 


NELM(I)=NELM(L1)+(L1-I) 


LRN14B0 

210 

continijf 


LRN1490 

c 

up to this stfp, the node point of 

THE CORF IS NO. 11 

LRN1500 


KK=L1-1 


LRN1510 

220 

LA = NELM (KK) -NCOR (KK) 


LRN1520 


DO 230 1=1 »LA 


LRN1530 


J=NCOR (KK) +1 


LRN1540 


PXE(KK,J)=PXE(KK+1,J-1) 


LRN1550 


PYE (KK, J) =PYF (KK+1 , J-l ) 


LRN1560 


PZE(KK,J)=PZF(KK*1,J-1) 


LRN1570 

230 

CONTINUE 


LRN15B0 


KK=KK- 1 


LRN1590 


IF (KK.LT.L3) GO TO 240 


LRN1600 


GO TO 220 


LRN1610 

240 

continue 


LRN1620 

250 

CONTINUE 


LRN1630 


DO 260 I=L3,L1 


LRN1640 


NCOR(I)=NCOR(l) 


LRN1650 


NELM(T)=NELM(I)+i 


LRN1660 


M=NCOp ( I ) 


LRN1670 


K=NFLM(I) 


LRN16B0 


DO 260 J=M,k 


LRN1690 


JJ=K- ( J-M) 


LRN1700 


PXF(I,JJ)=PXE(I,JJ-1) 


LRN1710 


PYE(I,JJ)=PYF(I,JJ-1) 


LRN1720 


PZE(I,JJ)=PZE(I,JJ-1) 


LRN1730 

260 

continuf 


LRN1740 

C 

THE ORDER OF THE NODF POINT ALONG 

THE CORE IS 1 2TH 

LRN1750 


TT=TAN (ALPHA) 


LRN1760 


CALL A7C0RE {TT»PXL»PXT»PYL»NC0P»NFLM*L1,L3,LL) 

LPN1770 


IF (ITRAKE.NE.1.AND.LL.E0.1) go to 

160 

LRN1780 



RETURN 

END 


LRN1790 

LRN1B00- 


C 


10 

20 


SUBROUTINE A7C0RE ( TT » P XL ♦ PXT . PYL , NCOR ♦ NELM t L 1 »L3 * LL > 

DIMENSION PXL(1)-*PXT(1) *PYL ( 1 ) *NCOP ( 1 ) *NELM ( 1 ) 

COMMON /ABC/ XE ( 1 0 , 40 ) , YE ( 1 0 , 40 > . ZE ( 1 0 * 40 ) 

COMMON /AERO/ NAFRO,MAXL»MAXW# ISPAN* ISF, ITRAKE* ISC 
COMMON /CAMR/ ICAM 
IF (ITPAKE.NF.1 ) GO TO 20 

SMITHR.S. RESULTS APF APPLIED ONLY TO THE ONE CORE SYSTEM 
PXP=PXL(LL) 

TANG=(PYL(Ll+1)-PYL(LL) )/(PXT(LL)-PXL(LL) ) 

TPT=TT/TANG 
DO 10 I=L3»L1 
K=NELM(I) 

NN=NCOP ( I ) 

DO 10 IK=NN,K 
TZAE=TANG*(XE(I,IK)-PXP) 

IF (TRT.LT. 1.2) 7E(T,IK)=TZAE*(0.189*TRT*0.08) 

IF (TRT.GE.i.? .AND.tRT.LT. 2. 2) ZF { I * IK ) =T7AE* ( 0 . 1 333*TRT* 0 . 1 58 ) 
IF (TRT.GE.j.P) 7E<T,IK)=T7AE» ( 0. 13»TRT*0 , 132) 

CONTINUE 
CONTINUE 
NXOP=NCOR (L3) 

FZMIN=0.2<UXE(L3,NXOP)-PXL(LL) ) *TT 

IF (ZE(L3»NxOP) .LT.F7MIN) ZE ( L3 ♦ NXOR ) =F7MIN 

RETURN 

END 


AZC 10 
AZC 20 
AZC 30 
AZC 40 
AZC 50 
AZC 80 
AZC 70 
AZC 80 
AZC 90 
AZC 100 
AZC 110 
AZC 120 
AZC 130 
AZC 140 
AZC 150 
AZC 160 
AZC 170 
AZC 180 
AZC 190 
AZC 200 
AZC 210 
AZC 220 
AZC 230 
AZC 240 
AZC 250' 


SUBROUTINE APFXC <NFL*SNCOP. Ml ) APX 10 
DIMENSION Ml (l) ,NCOP(l) ,NELN<1) APX 20 
COMMON /ABC/ XE(10*40) ,YE(10»40) »ZE(10,40) APX 30 

COMMON /AERO/ naero,maxl»maxw.ispan,isf,itrake,isc APX 40 
COMMON /LOC/ Fill, FU?,XEND,PXL(5) t PXT(5) ,PYL(5) APX 50 
LL= 1 APX 60 
IM=1 APX 70 
Ll=Mld)-l APX 80 
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10 


2 0 


30 


40 


L3=IM 

APX 

90 

GO TO ?0 

APX 

100 

I M=M 1 (1) 

APX 

110 

LL=2 

APX 

120 

L1=MAXL 

APX 

130 

L3=IM 

APX 

140 

continue 

APX 

150 

NELM(IM)=NElM(IM*1)+1 

APX 

160 

NCOP(IM)=NCnP(IM*l) 

APX 

170 

K = NCOP (IM) 

APX 

180 

DO 30 IJ=b*K 

APX 

190 

XE (IM, IJ)=XE(IM,4) 

APX 

200 

YE(IM,IJ)=YE(IM,4) 

APX 

210 

ZF(IM,IJ)=ZE(IM,4) 

APX 

220 

continue 

APX 

230 

NSW8=NFIM ( IM) -NCOP ( IM) 

APX 

240 

DO 40 I=1»NSWB 

APX 

250 

J=NCOR (IM) *1 

APX 

260 

XE(TM, J)=XE (IH*l, J-l) 

APX 

270 

YE (IM,J)=YE(IM+1 *J-1) 

APX 

280 

ZE(IM,J)=ZE(IM + 1.J-1) 

APX 

290 

continue 

APX 

300 

CALL AYCORE (PXL«PXT,PYL»NC0P,NELM,L1*L3,LL) 

APX 

310 

IF (ITPAKE.NE.I.AND.LL.EO.I) GO TO 10 

APX 

320 

RETURN 

APX 

330 

END 

APX 

340 


SUBROUTINE AYCORE (PXL«PXT.PYL*NC0R,NELM,L1 *L3,LL) 

AYC 

10 

DIMENSION PXL(l) *PXT(1) »PYL ( 1 ) tNELM { 1 ) ,NCOP(l) 

AYC 

20 

COMMON /ABC/ XE (10»40) *YE (10*40) *ZE (10*40) 

AYC 

30 

COMMON /AERO/ N AERO ,MAXL ♦ MAX W , ISPAN, ISF* ITRAKE , I SC 

AYC 

40 

COMMON /ALLpA/ TTL ( 1 6 ) , ALPHA 

AYC 

50 

T ANG= (PYL (LL + 1 ) -PYL ( Ll ) ) / ( PXL ( LL* 1 ) -PXL (LL) ) 

AYC 

60 

PAV = 0.5*MPXt (LL)+PXT (LL+1) ) 

AYC 

70 

DO 10 I=L3»L1 

AYC 

80 

K=NELM(I) 

AYC 

90 

MN=NCOR(I) 

AYC 

100 

DQ 10 ik=nn,k 

AYC 

no 

TZAE=TANG*(XF(I,TK)-PXL(LL) ) 

AYC 

120 
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n ^ ■. 


10 

C 


20 

C 

30 


40 


s 


o 

o 


IF (XF(I*IK) .GT.PAV) TZAF=PYL(LU1)-PYL(LL) 



AYC 

130 

FYE=0.6*TZAf 




AYC 

140 

IF (YF(I.IK) .GT.FYE.AND.XE(ItlK) .LT.PAV) 

GO 

TO 10 


AYC 

150 

IF (XEfltlK) ,6E.PAV.AND.YF(I*IK) .GT.FYE) 

GO 

TO 10 


AYC 

160 

YE(I,IK)=0.6?*T7AF*PYL(LL) 




AYC 

170 

CONTINUE 




AYC 

180 

SET UP THE GOOD SHAPE OF THE STRAKF CORE 

ON 

THE X-Y PLANE 

AYC 

190 

IF (ITRAKE.FQ.i.oR.LL.NF.1) GO TO 60 




AYC 

200 

KK=NCOR(Ll) 




AYC 

210 

JJ=NELM(LD-1 




AYC 

220 

DXX=XF(L1»KK)-XF(L1-1 *KK) 




AYC 

230 

DYY=YE(L1»KK)-YF(L1-1 *KK) 




AYC 

240 

D77=ZF(L1 *KK)-7F(L1-1 *KK) 




AYC 

250 

DYDX=DYY/UXx 




AYC 

260 

DZDX=D7Z/UXx 




AYC 

270 

DO 20 I=KK,jj 




AYC 

280 

Dx=XE(L1»I + 1)-XF(L1*I) 




AYC 

290 

YE (LI * 1*1 )=YE (LI . I) +PX«DYPX 




AYC 

300 

7E(LltI*l)=ZE(Ll,I) +0X*D7DX 




AYC 

310 

continue 




AYC 

320 

REGROUP THE NOPE POINTS ALONG THE CORE ON 

thf strake 

SECTION 

AYC 

330 

KK=L 1-1 




AYC 

340 

LA=NELM (KK) -NCOR (KK) 




AYC 

350 

DO 40 1=1 *LA 




AYC 

360 

J=NCOR ( KK ) ♦ I 




AYC 

370 

XE(KK,J)=XE(KK+1,J-1) 




AYC 

380 

YE (KK,J) =YE (KK*I , J-l ) 




AYC 

390 

ZE(KK,J)=ZE(KK*l,J-l) 




AYC 

400 

CONTINUE 




AYC 

410 

KK=KK- 1 




AYC 

420 

IF (KK.LT.2) GO TO SO 




AYC 

430 

GO TO 30 




AYC 

440 

CONTINIJF 




AYC 

450 

continue 




AYC 

460 

TO SET UP THE INITIAL FRFE SHEFT AND CORF 

IN 

standard 

FORM 

AYC 

470 

IF (ITRAKE.nE.1 ) RFTIJRN 




AYC 

480 

NX0R=NC0P (L3) 




AYC 

490 

NXOR 1 =NXOR ♦ 1 




AYC 

500 

NX0R2=NX0R+2 




AYC 

510 

RY=<YF (L3»NxOP2)-PYL (LL) ) / ( XF ( L3 * NXOR 2 ) -PxL ( LL > ) 


AYC 

520 

RZ= (ZF (L3»NxOP2)-0. ) /(XF (L3*NX0R2)-PXL (LL) ) 



AYC 

530 


230 



o o 


r~‘ 


c 


c 


c 


10 


YE <L3,NX0R1) =PY*(XE (L3,NX0Rl ) -PXL(LL) ) +PYL (LL) 
ZE (L3 t NXORl)=R7*(XE <l_3,NX0Rl ) -PXL (LU ) 

ZE <L3,NXOR1)=0.5* (7E (L3,NX0R1 ) *7F <L3»NX0P?) ) 
MODIFY THE FREE SHEET PORTION NEAP APEX REGION 
XE{L3+1»NX0R)=xF (L3,NX0R1) 
YE(L3*1»NX0R)=YF(L3,NX0R1) 

ZE(L3+1»NX0r)=7F (L3» NX0R1 ) 

****«» 

XE (L3 + 1 ♦NXOr-d=xE (L3*l »NxOR) 

YE(L3 + 1»NX0r-1)s:yE (L3*1»NX0R) 

ZE (L3+1 »NX0r-1 ) =7F (L3+1 »NXOR) 

«««««» 

XE (L3+1 ♦NXOr-?) = xE (L3+1 »NX0P) 

YE (L3+1 ,NXOr-?) =yF (L3+1 .NXOR) 

RETURN 

END 


SUBROUTINE LEADLM (NoC,RXE*BYE,BZE*NIT* I) 

DIMENSION PNT (20*3) *FLEN(20> » C0EF < 20 , 4 , 3) , 

1BXE(5) ,PYE(S) ,BZE(5) ,SP(20) 

COMMON /ABC/ XE ( 1 0 * 40 ) ♦ YE <1 0 , 40 ) ♦ 7E < 1 0 * 40 ) 

LEADING-EDGE VOPTEX SEGMFNT STARTS FROM FIFTH POINT OF LEADING 

edge free element on free sheet 

NOCl=NOC-l 
DO 10 J=1*N0C 
J J = J ♦ 4 

PNT(J*1)=XE(I,JJ) 

PNT (J»?)=YE(l f jj) 

PNT(J,3)=ZE(I,JJ) 

continue 

EPS=0. 

N=0 

MAXN=?0 
MAXSP=?0 
IX = N0C 
IPT=-1 

CALL CSIPAR (MAXN,IX f PNT,N,MAXSPtEPS»Kl,lPT»ELFN t COEF,CPT,IERR) 
SP(1)=0. 

ST=0. 


AYC 

540 

AYC 

550 

AYC 

560 

AYC 

570 

AYC 

580 

AYC 

590 

AYC 

600 

AYC 

610 

AYC 

620 

AYC 

630 

AYC 

640 

AYC 

650 

AYC 

660 

AYC 

670 

AYC 

680 

AYC 

690 


LAD 

10 

LAD 

20 

LAD 

30 

LAD 

40 

LAD 

50 

LAD 

60 

LAD 

70 

LAD 

80 

LAD 

90 

LAD 

100 

LAD 

110 

LAD 

120 

LAD 

130 

LAD 

140 

LAD 

150 

LAD 

160 

LAD 

170 

LAD 

180 

LAD 

190 

LAD 

200 

LAD 

210 

LAD 

220 
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20 


30 


40 


50 


DO 20 K=?»NOC 
SP(K)=SP(K-1) ♦ELE’N(K-l) 

ST=ST4FLFN (K-l ) 

DO 50 L=1*Nit 
FL=L 

DS=ST«FL/NIt 
LL= 1 

IF (DS.GT.SP(LL) .AND.DS.LE.SP<LL*1) ) 
LL-LL* 1 
GO TO 30 

DT=(DS-SP(LL) )/(SP(LL*I)-SP(LL) ) 


LAD 

LAD 

LAD 

LAD 

LAD 

LAD 

LAD 

GO TO 40 LAD 

LAD 

LAD 

LAD 


BXE (L ) =COEF (LL*ltl)MDT*»3)+C0EF( LL *2*1 )*(OT *•»?)♦ COEF(LLt3*l)*DT* CL AD 
10EF (LL» 4* 1 ) LAD 

BYE (L) =COtF (LL*1*2) * <DT*«3> ♦C0EF(LL*2»P)*{DT**2) ♦C0EF'(LL*3.2)»DT*CLAD 
10EF (LL»4*2) LAD 

BZF(L)=C0tF {LL*1 ,3)*(DT«*3> +C0EF (LL»2*3) * (DT*»2) +COEF (LL*3*3 ) *Dt+CLAD 
10EF (LL ♦ 4 » 3 ) LAD 

continue lad 

RETURN LAD 

END LAD 


SUBROUTINE CFSFT ( X X 1 ♦ YY 1 * 22 1 * IC, XB , YB ♦ ZB ,LL ) SET 
DIMENSION XR ( 40 ♦ 2 ) ♦YR(40*2)»ZB{40*2) SET 
D1=XX1-XR(IC,LL) SET 
D2=XP(IC*1»LL)-XR(IC,LL) SET 
D3=YR(IC+1*LL)”YB(IC»LL) SET 
YY1=YB(IC»LL)+<03»D1)/D2 SET 
D4=ZB (TC+1*LL)-7B(IC*LL) SET 
ZZ1=ZR (IC»LL) * (04*01) /D2 SET 
RETURN SET 
END SET 


SUBROUTINE MINMAX ( X 1 » X2 » XMN * XMX ) MAX 
XMN=AMIN1 { X 1 ,X2) MAX 
XMX=AMAX1 (*1,X2) MAX 
RETURN MAX 
END MAX 


230 

240 

250 

260 

270 

2A0 

290 

300 

310 

320 

330 

340 

350 

360 

370 

380 

390 

400 

410 

420- 


10 

20 

30 

40 

50 

60 

70 

80 

90 

100 - 


10 

20 

30 

40 

50- 
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SUBROUTINE: CFNTRD < XSTN, YSTN, ZSTN ,NMAX * NSW1 *NFLM, ISECT ) CEN 10 

DIMENSION YSTN(l) ,7STN(1) ,NELM{1) CEN 20 

COMMON /ABC/ XE ( 1 0 *40 ) , YE (1 0 , 40 ) ♦ ZE ( 1 0 ♦ 40 ) CEN 30 

COMMON /GENCF/ Ml (5) CEN 40 

COMMON /AERO/ N AERO * MAXL ♦ MAX W ♦ I SP AN ♦ I SF , I TRAKF . I SC CEN 50 

1=2 CEN 60 

IF (ITRAKE.NF.1.AND.TSECT.FG.2) I =M 1 ( 1 ) ♦ 1 CEN 70 

NSUB=5 CEN 80 

K=NSUP CEN 90 

10 KMAX=NFLM(I) CEN 100 

IF (XF(IfK) .GE.XSTN) 60 TO 60 CEN 110 

20 IF (XF(I.K) ,LF.XSTN.ANO.XF(IfK*l) .GE.XSTN) GO TO 30 CEN 120 

K=K+1 CEN 130 

IF (K.EO.KMax) GO TO 50 CEN 140 

GO TO 20 CEN 150 

30 CALL COORD (XSTN, I ,K, YSTN ( I ) ,7STN ( I )) CEN 160 

40 1*1*1 CEN 170 

K=NSUP CEN 180 

IF (I.GT.NSW1) GO TO 70 CEN 190 

GO TO 10 CFN 200 

50 YSTN ( I ) =YE ( I , K ) CEN 210 

ZSTN(I)=7E(I,K) CEN 220 

GO TO 40 CEN 230 

60 NMAX=I-1 CEN 240 

RETURN CEN 250 

70 NMAX=NSW1 CEN 260 

RETURN CEN 270 

END CEN 280- 


SUBROUTlNt COORD < XS, I ,K, YS, ZS) COO 10 
COMMON /ABC/ XF(l0*40) , YE (10,40) »ZE (10,40) COO 20 
DX=XE(I,K+I)-XF(T,K) COO 30 
DY=YE(T,K+1)-YE(I,K) COO 40 
DZ=ZE(I.K*1)-7F(I*K) COO 50 
YS=YE(I*K)*DY*(XS-XE(I*K))/DX COO 60 
ZS=ZE(I,K)*DZ«(XS-XE(I.K) )/DX COO 70 
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RETURN 

END 


COO 80 
COO 90 


SUBROUTINE CSIPAR (MAXN, IX ,PNT,N,MAXSP,EPS,K1,IPT, ELEN ,COEF , CPT » CSIP0010 

1 IEPR ) CSIP0020 


c» 

c* 

c* 

c* 

c* 

c* 

c# 

c* 

c* 

c* 

c* 

c* 

c* 

c* 

c» 

c* 

c» 

c» 

c* 

c* 

c* 

c« 

c* 

c* 

c* 

c* 

c* 

c* 

c» 

c» 

c* 

c* 


PURPOSF: 


use; 


MAXN 


IX 


PNT 


N 


MAXSP 


SUBROUTINE CSIPAR COMPUTES PARAMETRIC CUBIC SPLINE 
COEFFICIENTS TO APPROXIMATE A SMOOTH CURVE THROUGH A 
3D SET OF INPUT POINTS AND OPTIONALLY COMPUTES AN 
fnrtched CURVE. 


CALL CSIPAR (MAXN, IX, PNT,N,MAXSP»FPS,Kl,IPT. ELEN, 
COEF,CPT,IFRR) 

AN INPUT INTFGFP SPECIFYING THE MAXIMUM NUMBER OF 
NODE POINTS AS GIVEN IN THE DIMENSION STATFMENT OF 
THF CALLING PROGRAM. 

AN INPUT INTFGFP SPECIFYING THE ACTUAL NUMBER OF 
NODE POINTS DEFINING THE CURVE. IX P MAXN. 

A TWO-DIMENSIONAL INPUT ARRAY DIMENSIONED (MAXN, 3) 

IN THE CALLING PROGRAM. ON ENTRY TO CSIPAR, 
PNT(K.I), PNT ( K , 2 ) , PNT(K,3) CONTAIN THE X*Y, AND Z 
COORDINATES RESPECTIVELY OF THE K-TH NODE POINT TO 
RE FITTED. 

AN INPUT INTFGEP SPECIFYING THE NUMBER OF 
INTERPOLATED POINTS TO BE COMPUTED BETWEEN EACH PAIR 
OF NODE POINTS. IF N=0, COMPUTATION OF THF 
ENRICHED CURVE IS OMITTED. 

AN INPUT INTFGFP SPECIFYING THE MAXIMUM NUMBER OF 
POINTS ALLOV'FD IN THE ENRICHED CURVF, AS GIVEN IN 
THF DIMENSION STATEMENT OF THE CALLING PROGRAM, 


*CSIP0040 

*CSIP0050 

*CSIP0060 

*CSIP0070 

*CSIP0080 

»CSIP00Rft 

*csipoioo 

*CSIP01 10 
*CSIP01?0 
*CSIP0 130 
*CS IPO 1 40 
*CSIP01S0 
*CSIP0 1 60 
«CSIP0170 
*CSIP0180 
«CSIP0190 
*CSIP0200 
*CSIP0210 
#CSIP0220 
#CSIP0230 
#CS IP0240 
*CSIP0250 
*CS IP0260 
*CSIP0?70 
*CSIP0280 
*CSIP0290 
♦CSIP0300 
»CSIP031 0 
*CSIP0320 
*CSIP0330 
*CSIP0340 
*CSIP0350 



c* 


MAXSP SHOULD BE AT LEAST (IX-1) * (N*l) ♦ 1 TO 

*CSIP0360 

o 


PROVIDE FOR ALL INTERPOLATED POINTS. IF AN ENRICHED 

*CSIP0370 

c* 


CURVE IS NOT CALCULATED. A DUMMY ARGUMENT SHOULD 

*CSIP0380 

c» 


PF SPECIFIED FOP MAXSP. 

»CSIP0390 

o 



*CSIP0400 

c* 

EPS 

AN INPUT PARAMETER USED TO TEST CURVATURE OF THE 

*CSIP041 0 

c* 


FNRTCHED CURVE. IF THF ABSOLUTE VALUE OF THE SECOND 

*CSIP04?0 

c* 


DFPIVATIVE AT AM INTERPOLATED POINT IS LESS THAN 

*CSIP0430 

c* 


EPS. THF POINT WILL PE OMITTED FROM THE ENRICHED 

*C5IP0440 

o 


CURVE. IF EPS-0 . ALL INTERPOLATED POINTS WILL BE 

*CSIP0450 

c* 


RETAINED. IF AN ENRICHED CURVE IS NOT CALCULATED. 

*CSIP0460 

c* 


A DUMMY ARGUMENT SHOULD BE SPECIFIED FOR EPS. 

*CSIP0470 

c* 



*CSIP04R0 

c* 

K 1 

AN INPUT INTEGFR SPECIFYING WHETHER A NODE POINT IS 

*CSIP0490 

c* 


TO BE RETAINED IN THF ENRICHED CURVE WHEN THE SECOND 

*CSIP0500 

c* 


DERIVATIVE AT THE POINT IS LESS THAN EPS. 

*CSIP0510 

c* 


Kl=l ALL NODE POINTS WILL BE RETAINED. 

*CSIP05?0 

c» 


Kl=? NODF POINTS WILL BE OMITTED IF SFCOND 

*CSIP0530 

c* 


DERIVATIVE IS LESS THAN EPS. 

*CSIP0540 

c* 


IF AN ENRICHFD CURVE IS NOT CALCULATED, A DUMMY 

*CSIP0550 

c» 


argument should BE SPECIFIED FOR K1 . 

«CSIP0560 

c* 



*CSIP0570 

c* 

IPT 

AN INPUT/OUTPUT INTEGER HAVING THE FOLLOWING 

*CSIP05B0 

c# 


FUNCTIONS? 

«CSIP0590 

c« 



*CSIP0600 

c* 


INPUT.* 

*CSIP061 0 

c* 



*CSIP06?0 

c* 


=-l WHENEVER A NEW PNT ARRAY IS SPECIFIED, IPT MUST 

#CSIP0630 

c* 


BE INPUT AS -1 SO THAT THE ROUTINE WILL PE 

*CSIP0640 

c* 


INITIAL I7FD . 

"CSIP0650 

c* 



*CSIP0660 

c* 


output: 

*CSIP0670 

c« 



*CSIP06B0 

c* 


=N THppE ape a total of n points in the 

*CSIP0690 

o 


ENRICHED CURVE. 

*CSIP0700 

c* 



*CSIP0710 

c* 

ELEN 

A one-dimfnsional output array dimensioned at least 

»CSIP07?0 

c* 


IX IN THE CALLING PROGRAM. ON RETURN FROM CSIPAR, 

*CSIP0730 

c* 


ELEN (K) CONTAINS THE CHORD LENGTH BETWEEN NODE 

"CSIP0740 

c« 


POINTS K AND K+l. 

*CSIP07B0 

c* 



«CSIP0760 
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c« 
c« 
c« 
c* 
c* 
c* 
c* 
c» 
c # 
c* 
c» 
c* 
c* 
c* 
c* 
c* 
c* 
c* 
c* 
c# 
c# 
c» 
c* 
c* 
c» 
c« 
c* 
c» 
c» 
c* 
c* 
c* 
c» 
c* 
c* 
c* 
c* 
c* 
c* 
c* 
c* 


COEF 


A THRFE-DIMFNs 
(MAXN,4,3) IN 
CS I PAR * COFF ( K 
IFNT FOP THE N 
NODE POINTS K 
ORDER OF CUBIC 
COEF(K,1*1 )s 
COEF(K, 2,l)= 
COFF{K,3»l)= 
C0FF(K,4,1)= 

whfpf: 


IONAL OUTPUT ARRAY DIMENSIONED 
THE CALLING PROGRAM. ON RETURN FROM 
,M,N) CONTAINS THE M-TH CURIC COEFFIC- 
-TH COORDINATE IN THE INTERVAL BETWEEN 
AND K ♦ 1 . . 

COEFFICIENTS IS: 

AX COFF (K,l ,2)=AY 
BX COEF {K,2t2)=BY 
CX COEF(K,3*?)=CY 
DX COEF (K,4*2)=DY 


COEF (K* 1 * 3) -AZ 
COEF (K*2*3) S BZ 
COEF ( K * 3 * 3 ) -CZ 
COEF ( K • 4 « 3 ) =DZ 


FX 

FY 

F7 

AND: 

T 


AX«T*«3 

AY*T**3 

A7*T**3 


♦ RX*T**2 ♦ CX«T ♦ DX 

♦ BY*T»*2 ♦ CY#T + DY 

♦ RZ*T**2 ♦ C7»T ♦ DZ 


= CHOPDAL DISTANCE PARAMFTER . 


OPT A TWO-DIMENSIONAL OUTPUT ARRAY DIMENSIONED (MAXSP,3) 
IN THE CALLING PROGRAM. ON RETURN FROM CSIPAR, 
CPT(K,1) , -CPT(K*2) * CPT ( K * 3 ) CONTAIN THE X,Y,Z 
COORDINATES RESPECTIVELY OF THE K-TH POINT ON THE 
ENRICHED curve, if an enriched curve is not 
calculated, a dummy argument should be specified 

FOR CPT. 

IFPP AN OUTPUT INTFGFR ERROR CODE. 

=0 NORMAL RETURN NO ERROR IN CALCULATION 
=-l INCOMPLETE FAIRED CURVE 

=-? LESS THAN FOUR NODE POINTS WERE SPECIFIED. 
POuTINF TERMINATES. 


REQUIRED ROUTINES 

NONE 

SOURCF 

SUBROUTINE SPFIT WRITTEN BY 
CMPB, MODIFIED Ry COMPUTER 
SCIENCFS CORPORATION 

LANGUAGF 

FORTRAN 


*CS IP0770 
*CSIP07R0 
*CSIP0790 
*CSIP0800 
*CSIP08 1 0 
*CSIP0820 
*CSIP0830 
*CS IP0840 
*CS IP0850 
*CSIP0860 
"CSIP0870 
*CSIP0RR0 
«CSIP0890 
»CSIP0900 
*CSIP091 0 
*CSIP0920 
*CSIP0930 
*CSIP0940 
*CSIP0950 
*CSIP09fi0 
»CSIP0970 
*CSIP0980 
*CSIP0990 
*CSIP1000 
*CSIP1010 
•CSIP1020 
*CSIP1030 
*CSIP1 040 
*CSIP1050 
*CSIP1060 
*CSIP1070 
*CSIP1080 
*CSIP1 090 
*CSIP1100 
*CSIP1110 
*CSIP1120 
*CSIP1 130 
*CSIP1 140 
•CSXP1150 
*CSIP1180 
*CSIP1170 
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non*- oooogj ooo 


C* 

C« 

C* 

C* 

C* 


DATE RELEASED 
LATEST RFVlsiPN 


OCTOBER 3* 1973 
OCTOBER 3* 1973 


DIMENSION PNT(MAXN,3) « FLFN ( 1 ) ,COEF (MAXN,4,3> ,CPT (MAXSP,3) 

DIST (XI ,Yl »Z1 »X2»Y2,Z2) =S0PT ( <X2-X1)**2* (Y2-Y1) **2+ (Z?-Z1)**2) 

IF ( IPT *NF, -1 ) GO TO 92 

IF ( I X .LT. 4) GO TO 140 

IEPR = 0 

N1=IX-1 

computfs CHORD lengths 

DO 30 NN=2»IX 

ELFN(NN-d=pisT (PNT (NN-1 , 1 ) , PNT (NN-1, 2) , PNT (NN-1, 3) , 

1 PNT ( NN » 1 ) ,PNT(NN,?) ,PNT(NN,3) } 

0 CONTINUE 

SFTUP COEFFICIENT MATRIX WITH UNCLAMPFD END POINTS 
SETS 2ND DFR=0. AT Pi AND PN j 

COEF { 1 ♦ 1 ♦ 1 ) =0 . 

C0EF(1,1,2>=2. 

COEF(l, 1,31=1. 

COEF (IX,1»1)=1. 

COEF (IX, 1*2)=?. 

COEF (IX, 1*31*0, 

DO 40 NN=2*N1 

COFF (NN, j , i j sFLFN (NN) 

COFF (NN, 1, ?)=?#* (FLEN (NN-1 ) +ELEN (NN) ) 

COEF (NN, 1,3) =FLEN( NN-1) 

0 CONTINUE 

SOLVL FOP SLOPES 


*CSIP1180 
«CSIP1190 
•CSIP1200 
•CSIP121 0 
*CSIP1220 
»«««»««««««CSIPl?30 


DO 70 1=1,3 


f u i = i , j 

COEF (1*4,1) = (3. /ELEN (1 ) ) * (PNT (2,1) -PNT (1,1)) 
COFF (IX,4,1)=(3./ELEN ( IX-1 ) ) * (PNT ( IX , I ) -PNT 
DO 60 NN=2,N1 


(IX-1,I) ) 


CSIP1240 

CSIP12G0 

CSIP1260 

CSIP1270 

CSIP1280 

CSIP1290 

CSIP1300 

CSIP1310 

CSIP1320 

CSIP1330 

CSIP1340 

CSIP13S0 

CSIP1360 

CSIP1370 

CSIP1380 

CSIP1390 

CSIP1400 

CSIP1410 

CSIP1420 

CSIP1430 

CSIP1440 

CSIP1450 

CSIP1460 

CSIP1470 

CSIP1480 

CSIP1490 

CSIP1500 

CSIP1510 

CSIP1520 

CSIP1530 

CSIP1540 

CSIP1SS0 

CSIP1560 

CSIP1570 

CSIP1580 



60 

C 

C 

C 


63 


67 

70 

C 

C 

C 


C 

C 

C 


COFF (NN,4 , 1 ) = (3./ (ELFN (NN-1 ) «ELEN (NN) ) )* 

1 (ELEN(NN-1)**?MPNT(NN + 1»I) -PNT (NN, I ) )♦ 

2 ELEN<nN)**?*(PNT(NN,I)-PNT(NN- 1 tl))) 

continue 

SOLVE TPIPI AGONAL MATRIX 

COFF (1*2,1) =COEF ( 1 , 1 ,3) /COEF (1,1,2) 

COFF (1*3,1) =COEF (1,4,1) /COEF (1,1,2) 

00 63 K=?,TX 

KM1=K_i 

TEMP=COEF ( K , 1 , 2) -COEF < K , l , 1 ) #COEF (KM l , 2, l ) 

C0EF(k,?,1)= C0EF(K,1,3)/TEMP 

COEF (K,3,T)=(C0EF (K, 4,1) -COEF ( K , 1 , 1 ) *COEF (KM1 , 3 , I ) ) /TEMP 
CONTINUE 
DO 67 K=i,mi 
K K = I X - K 

COFF (KK,3,I)=C0EF(KK,3,I)-C0EF(KK,2,1)*C0FF(KK*1,3,I) 
continue 

CONTINUE 

COMPUTE CURT C COEFFICIENTS FOP EACH SEGMENT 

DO 90 NN=1 , N 1 

EL=1 ,/ELEN (NN) 

el?=el*e l 

EL3 = EL*E|_2 
DO 90 1=1,3 

COEF (NN,4, I ) =PNT (NN, T ) 
fr = RNT (NN+l , I ) -PNT (NN, I ) 

COEF ( NN , 2 , I ) = 

1 F»EL2*3 # - 

2 El «(2,«COFF(NN,3 9 I) + COEF (NN* 1 • 3 • I') ) 

COEF (NN,1,T)» 

1 -F*EL3*?.+ 

2 FL2*(COEF ( NN ,3,I)+C0EF( NN+ 1,3,1) ) 

pefepencf length TO 1. 

COEF (NN, 1 , I ) =COEF (NN, 1 , I ) /EL3 
COEF ( NN ,?,I)=COEF (NN,2,I)/EL2 


CS IP 1 590 
CSIP1600 
CSIP1610 
CSIP1620 
CSIP1630 
CSIP1640 
CSIP1650 
CSIP1660 
CSIP1670 
CSIP1680 
CSIP1690 
CSIP1700 
CSIP171 0 
CSIP1720 
CSIP1730 
CSIP1740 
CSIP1750 
CSIP1760 
CS I P 1 77 0 
CSIP1780 
CSIP1790 
CSIP1800 
CSIP1810 
CSIP1820 
CSIP1830 
CSIP1840 
CSIP1850 
CSIP1860 
CSIP1870 
CSIP1880 
CSIP1890 
CSIP1900 
CSIP1910 
CSIP1920 
CSIP1930 
CSIP1940 
CSIP1950 
CSIP1960 
CSIP1970 
CSIP1980 
CSIP1990 


238 



90 

C 

C 

C 


95 

100 

no 

120 

125 

130 

140 


COEF (NN,3,I)=C0EF(NN,3,I)/EL 
CONTINUE 
92 IPT = 0 

IF <N .EQ. 0) RETURN 
IF <K1 .EQ. 0 ) K1 =1 

compute enptchfd POINTS 

IFIT = N*1 
XFIT=IFIT 
DELT=1./XF1j 
DO 120 NN=l,Nl 

DO 110 NF=1,IFIT 
F=NF-1 
T=DtLT*E 

IF(NN.fo.1.ANO.NF.EQ.1)GO TO 95 
IF(NF.EO. 1 . AND. K 1 .EQ. 1 ) GO TO 95 
T6=6.#t 

FX=ABs(T6*C0FF(NN.l f 1) + 2 .#COEF <NN,2, 1 ) ) 
FY=ABS(T6*C0EF(NN.1.2) +2 . *COEF < NN , 2 , 2 ) ) 
EZ=ABS(T6*C0EF(NN.l t 3) ♦2.*COEF (NN,2,3) ) 

EE= (tx+EY+EZ) / (ELFN (NN) »ELEN (NN) ) 

if(£e.ut.eps)go to no 

IF(IPT ,GE. MAXSP ) GO TO 130 
IPT=lPT*l 

no ioo 1 = 1,3 

CPT(IPT,I)=( (T*COFF (NN,1,I) ♦ C0EF(NN,2,I) )*T* 
1 I) )*T+COFF ( NN , 4 , I ) 

continue 

CONTINUE 

IF ( IPT .GE. MAXSP ) GO TO 130 
IPT=IPT ♦ 1 
DO 125 1 = 1 » 3 

CPT (IPT,I)=PNT(IX,I) 

RETURN 
I ERR = - 1 
RETURN 
IEPR =-2 
RETURN 
END 


CSIP2000 
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CSIP2220 
CSIP2230 
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*** RUN STREAM *** 


LEVSP»T1 777, CM1 77000. 
USFR , XXX X X X . 

CHARGE*YYYYYY,LRC. 

FTM. 

LGO. 

PFWIND, TAPER. 

COPY , TAPE9 . 

REWIND, TAPF10. 

COPY , TAPE 1 0 . 

7/8/9 - CARD 


FILE MANIPULATION FOR BEST SET OF RESULTS 


COMPUTER PROGRAM ** 


7/8/9 - CARO 
** DATA CARDS ** 
6/7/P/9 - CARO 
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